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As leis da perspectiva foram 
formuladas no decorrer do Renascimento 
por artistas como Alberti e 

Leonardo. Aqui, você poderá aplicá-las, 
acionando apenas algumas teclas. 


Embora nos permitisse desenhar um 
cubo em três dimensões e variar O seu 
tamanho, o programa apresentado nos 
dois últimos artigos desta série tinha 
uma limitação: com ele era possível vi- 
sualizar o desenho apenas de frente, As- 
sim, era impossivel observá-lo de cima, 
de lado ou de qualquer outro ângulo que 
desejássemos. Este artigo oferece roti- 
nas extras que nos permitirão especifi- 
car a posição dos nossos olhos, de mo- 
do a poder observar o cubo de qualquer 
posição. 

Essa flexibilidade é muito útil, sobre- 
tudo para desenhos de objetos mais 
complicados, pois a visão que obtemos 
nas diferentes posições pode nos reve- 
lar traços escondidos ou obscuros. Ao 
especificarmos uma sucessão de coorde- 
nadas diferentes para a posição dos nos- 
sos olhos, teremos a impressão de estar 
“sobrevoando” o objeto. 

No entanto, embora usemos os mes- 
mos princípios, a sequência de desenhos 
que pode ser gerada em um computador 
pessoal é muito lenta e o efeito obtido, 
inferior ao dos desenhos tipo wireframe 
dos comerciais de televisão. Nestes últi- 
mos, temos a impressão de que o obser- 
vador aproxima-se de um objeto (car- 
ro, nave espacial etc.) e o contorna a 
uma alta velocidade. 
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O EFEITO DO PONTO DE OBSERVAÇÃO 


Já mostramos como é possível repre- 
sentar um objeto tridimensional em uma 
tela de duas dimensões, usando conven- 
ções visuais que serão interpretadas pe- 
los olhos e pelo cérebro do observador. 
Os programas anteriores fizeram isso 
por intermédio de uma projeção isomé- 
trica, na qual linhas obliquas são vistas 
no contexto do desenho entrando ou 
saindo da tela. 

A forma mais comum de convenção 
visual é o desenho em perspectiva, em 
que as linhas que se afastam do obser- 
vador (ou seja, “entram” na tela) con- 
vergem para um ponto distante, conhe- 
cido como Ponto de Fuga, e têm dimi- 
nuídas as suas dimensões, à medida que 
se afastam do primeiro plano. Na reali- 
dade há três pontos de fuga na perspec- 
tiva em 3-D: um para cada linha orto- 
gonal desenhada ao longo dos eixos. A 
posição dos três pontos é fixada com ba- 
se na relação entre as posições do ob- 
servador e as do objeto a ser represen- 
tado (na convenção visual, esses pontos 
são imaginários). 

Assim, a primeira coisa que precisa- 
remos saber é a relação entre as posições 
do observador e as do objeto. Para de- 
terminarmos essa relação, devemos in- 
dicar o ponto de vista para os eixos X, 
Y e Z que foram especificados na tela, 
Os programas a seguir fazem exatamen- 
te isto, executando depois as transfor- 
mações necessárias. 





ANTES DE COMEÇARMOS 


Para rodar esses novos segmentos de 
programa listados abaixo, recorremos à 
Rotina da Grade apresentada no artigo 
Programação de Gráficos em 3-D fl) à 
página 581. Essa rotina deve ser carre- 
gada no computador. Uma boa idéia é 
carregar também a Rotina do Desenho 
do Circulo que se encontra no mesmo 








Um ponto de observação distante cria 
apenas um leve efeito de perspectiva, 
enquanto um ponto muito próximo 
tende a distorcer a imagem (á direita). 


artigo. Embora esta última não seja ne- 
cessária por enquanto, convém termos 
todas as rotinas juntas, prontas para O 
programa global de desenhos que sairá 
no próximo artigo. Desse modo, as li- 
nhas que precisaremos agora são as que 
vão de 5000 a 6160; todas as outras po- 
dem ser apagadas. 

Como anteriormente, teremos que 
entrar várias porções de programa an- 
tes de podermos rodar qualquer coisa, 
pois a posição dos olhos, da mesma ma- 
neira que as transformações para rota- 
ção e perspectiva, devem ser implemen- 
tadas em primeiro lugar. 





DEFINIÇÃO DO PONTO DE OBSERVAÇÃO 


A primeira parte do programa calcula 
as variáveis necessárias para se determi- 
nar a posição do olho do observador no 
espaço tridimensional: 


B000 
8010 
8020 
8030 
8035 
8040 
8050 
B060 
B07/0 
8080 
8090 
H 

8100 
8110 
B120 
B130 
8140 
B150 
8160 


XV=K: YV=Y: ZV=Z 
WV=YVAYVAZVAZV 

PV=SQR (XVIRV+NWV) 

IF PVU=0 THEN RETURN 
WV=SQR (WV) 

RU=XV/PV 

YU=YV/PV 

ZU=ZV/PV 

WU=WV/PV 

REM ORIENTAÇÃO DO OLHO 


SG=5IN(G) 

CG=Cos (G) 

REM MATRIZ DE ROTAÇÃO 
R1L=WUXCG 

R2=-WU*SG 

R3=-XU 


Para representar uma figura em perspectiva, 
é preciso transformar as coordenadas 

dos eixos tridimensionais (X1, Y1, Zh em 
pontos referidos aos eixos da tela (X, Y). 


A=XV*YU:B=ZV:GOSUB 8B450:G= 


A=YV:B=XV:GOSUB 8B450:G=G+H 
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8170 
8180 
8190 
8200 
8210 
WU 
8220 
8230 
B240 
8250 
8260 
8270 
8280 
8330 
8340 
x 
8350 
8360 
8370 
8380 
8390 
8400 
B410 
8450 
TURN 
8460 





8000 
8010 
B020 
8030 
8035 
8040 
8050 
8060 
8070 
8080 
8090 


B450: 
8100 


R4=-YU 

R5=-ZU 
R6=XVAXU+YVAYU+ZV*ZU 

IF WU=0 THEN 8340 
XT=XVAWU- (YVUAYU+ZVUAZU) *XU/ 


YT=(YV*ZU-ZV*YU) /WU 

R7= (ZU*S8G-XU*YU*CG) /WU 
R8= (-YTU*SG-XU*ZU*CG) /WU 
R9=CG*XT+SG*YT 

81= (ZU*CG+XU*TU*56) /WU 
82=(-YUXCG+XU*ZU*5G) /WU 
83=-SG*KT+CG*YT 

RETURN 

REM CASO ESPECIAL NO EIXO 


R7=-1 

R8=() 

R9=0 

8S1=0 

82=1 

83=0 

RETURN 

IF B<>0 THEN H=ATN(A/B) :RE 


H=P1/2:RETURN 


Daio 


XV = X:YV = ViZV = Z 
W = YV*XYVA+ ZA Za 
PV = SQR (XV * XV + WU) 
IF PV = O THEN RETURN 
WV = SOR (WU) 
XU = XV / PV 
YU = YU / PV 
ZU = ZV / PV 
VU = WU / PV 
REM ORIENTACAO DO OLHO 
A = XV * YV:B = ZV: GOSUB 
CG =H 
A = YV:B = XV: GOSUB 8450: 


G=-G+H 


8110 SG = 


8120 


8130 REM 
8140 R1l = 
8150 A2 = - 
8160 R3 E 
8170 R4 
8180:R5 
8190 R6 


SIN (G) 

cos (6) 

MATRIZ ROTACÃO 
WU * CG 

NU * SG 
XU 

YU 

ZU 

*XU + YVATU+ZL 


CG = 


XV 


V * Zu 


8200 
B210 XT = 


8340 
CYV * TU + 


IF WU = O THEN 
KV * WU - 


ZV * ZU) * XU / WU 


8220 YT = (IV * ZU - ZV * TU) / 
Wu 

8230 R7 = (ZU * SG - XU * YU * 

CG) / WU 

8240 R8 = ( - YU * SG - XU*ZU 


* €G) / WU 
8250 R9 = CG * XT + SG * YT 


8260 SL = (ZU * CG + XU * YU * 
SG) / WU 

8270 82 = ( - YU * CG+ XU* ZU 
* 86) / WU 

8280 83 = - SG * XT + CG * YT 


8330 RETURN 


8340 REM CASO ESPECIAL NO EIX 
0-X 
350 R7 = - 2 


8360 R8 = O 


R9 
sl 
82 
83 = 
RETURN 
IF B< > O THEN 


8370 
8380 
B390 
8400 
B410 
8450 
(A / B): RETURN 
B460 H = PI / 2: RETURN 


8000 
=Z 

B010 
8020 
8030 
8035 
8040 
8050 
8060 
8070 


nua 
oro 


H = ATN 


LET XV=X: LET YV=f: LET ZU 
LET WV=YV*YV+ZUAZV 

LET PV=S0R (XVFXV+WV) 

IF PV=0 THEN RETURN 

LET WV=SQR WV 
LET XU=KV/PV 

LET YU=YV/PV 

LET ZU=Z2V/PV 

LET WU=WV/PM 
8080 REM ORIENTACAO 
8090 LET A=XVAYV: LET 
UB B450: LET G=H 

8100 LET A=YV: LET B=XV: GOSUB 
B450: LET G=G+H 

8110 LET SG=5IN G 

B120 LET CG=COS G 

8140 LET Rl=WU*CG 

8150 LET R2=-WUASG 

8160 LET R3=-XU 

B170 LET R4=-YU 

8180 L R5=-ZU 

B190 LET R6=XVAXU+YVXYU+ZUAZU 
8200 TF WU=0 THEN GOTO 8340 
B210 LET XT=XV*WU-(YV*YU+ZVAZU) 
AXU /WU 

8220 LET YT=(YV*ZU-ZV*YU) /WU 
8230 LET R7=(ZU*SG-XU*YUXCG) /WU 


B=ZV: GOS 








Na perspectiva aérea, os três pontos 
de fuga são fixados sobre os 

eixos X,Y e Z. A figura da ilustração 
parece deformada devido 

à proximidade dos pontos de fuga, 


B240 
U 

8250 
8260 
8270 
U 

8280 
8330 
8350 
B360 
83/0 
8380 
8390 
B400 
8410 
B450 


LET R8=(-TU*SG-XU*ZU*CG)/W 
R9=CG*XT+SGAYT | 
Sl= (ZU*CG+XUA*YU*56) /WU 
S2=(-YU*CO+XU*ZU*5G) /W 


LET 
LET 
LET 


LET 53=-S65KT+CO*TT 

RETURN 

LET R7=-1 

LET R8=0 | 
LET Ry$=0 | 
LET Sl=0 | 
LET 82=] 

LET S3=0 
RETURN 

LF B<>0 THEN 
/B): RETURN | 
8460 LET H=PI/2: RETURN | 
ER | 
8000 XV=X: YV=Y:ZV=Z 

8010 WV=YVAYV+AZVAZUV 

8020 PV=SQR (XV*KXV+HNV) 

8030 IF PV=0Q0 THEN RETURN 

8035 WV=SQR(WV) 

8040 XU=XV/PV 

8050 YU=YV/PV 

8060 ZU=ZV/PV 

8070 WU=WV/PV 

8080 REM ORIENTACAO 

8090 A=XV*YV:B=ZV:GOSUB 8B450:G= 


LET H=ATN (A 


8100 
8110 
8120 
8130 
8140 
8150 


A=YV:B=XV:GOSUB 8450:G=G+H 
SG=SIN(G) 

CG=Cos (G) 

REM ROTACAO DA MATRIZ 
RiI=WUXCG 

R2=-WU*86 
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8160 R3=-XU 

8170 R4=-YU 

8180 R5=-ZU 

8190 R6=XV*XU+YVAYU+ZVAZU 

8200 IF WU=0 THEN 8340 

B210 XT=XVAWU- (YV*YU+ZVAZU) *XU/ 
WU 

8220 YT=(YV*ZU-ZV*YU) /WU 

8230 R7=(ZU*SG-XU*YU*CG) /WU 
8240 R8=(-YU*SG-XU*ZU*CG) /WU 
8250 R9=CG*XT+SG*TT 

B260 Sl= (ZU*CG+XU*TU*SG) /NU 
8270 92= (-YU*CG+KU*ZU*86) /WU 
8280 83=-SG*KT+CGO*YT 

8330 RETURN 

B340 REM CASO ESPECIAL NO EIXO 
X 


8350 R7=-1 

8360 RB=0 

B370 R9=0 

8380 S1l=0Q 

8390 52=1 

8400 53=0 

8410 RETURN 

8450 IF B<>O THEN H=ATN(A/B) EL 
SE H=PI/2 

B460 RETURN 


Para entendermos o que está aconte- 
cendo, devemos nos lembrar que o eixo 
Z é aquele que sai do centro da tela e 
vem na direção do observador; o eixo 
Y aponta para cima da tela e o eixo X, 
para os lados. 

A posição dos olhos está em (XV, 
YV, ZV). A variável WY nos dá a dis- 
tância nas direções Y e Z combinadas. 
Definimos a origem em (0, 0, 0) para a 
posição do objeto que observamos no 
espaço. Para simplificar, situamos essa 
posição no centro da tela. A linha 8030 
interromperá a rotina, caso a posição 
dos olhos seja definida na origem. As 
variáveis XU, YU, ZU são as distâncias, 
na direção dos respectivos eixos (X, 1, 
X) de uma linha de comprimento uni- 
tário entre a origem e a posição dos 
olhos. WU é a distância nas direções Y 
e Z combinadas. 

Se movermos o objeto da esquerda 
para a direita, nosso ângulo de visão so- 
frerá alterações. Esse ângulo é medido 
a partir do eixo X e definido nas linhas 
8090 e 8100. Um teste é feito nas linhas 
8450 e 8460 para evitar divisões por ze- 
ro, que interromperiam o programa, ge- 
rando uma mensagem de erro. 

Quando olhamos diretamente ao lon- 
go do eixo X, temos uma visão comum 
do objeto, mas, se rodarmos nosso pon- 
to de observação, o objeto também ro- 
dará, proporcionando ângulos mais in- 
teressantes. As linhas 8140 a 8280 ini- 
cializam as variáveis que definem a 
orientação da posição do olho no espa- 
co. Essa posição é tal que o seu eixo Z 
encontra-se ao longo da linha que vai do 


molho até a origem da tela. 


O resto da rotina inicializa variáveis 


para casos especiais; por exemplo, quan- 
do a posição do olho estiver exatamen- 
te sobre O eixo X. 


AS TRANSFORMAÇÕES 


A próxima seção transforma as coor- 
denadas X, Y e Z do cubo nas coorde- 
nadas finais da tela. Essa transforma- 
ção leva em conta a posição do olho e 
o efeito da perspectiva. 


| 


8500 X1I=TIAX+T4*Y+T/ 

8510 Y1l=T2*X+T5*Y+TB8 

8520 Z1=TI*K+TEORY+HTO 

8530 REM 2-D PARA 3-D 

8540 X2=R1I*XI+R/*YI+RB*ZI+R9 
8550 Y2=R2*X1+51*471+52*Z1+53 
8560 Z2=R3I*XI+R4*YI+R5SAZI+R6 
8570 REM OBJETO PARA OLHO 
8575 IF Z2<ZN THEN RETURN 
8580 X3=D*X2/22 

8590 Y3=D*Y2/2Z2 

B600 RETURN 


8500 X1 


“cr +” Tm" Tr 
8510 VI = T2 *X+ Th * Y + TB 
8520 21 = T3 * X+ T6 * Y+T9 
8530 REM 2-D PARA 3-D 
8540 X2 = R1l*X1+ R7 * Y1l+R 
B* Z1] + R9 
8550 Y2 = R2 *X1+ 81 * Y1 +55 


2*zl+ 83 

8560 Z2 = R3 * X1 + R4 * TI +R 
5 * Z1l + R6 

B575 IF Z2 < ZN THEN 
8580 X3 = D* X2 / Z2 
8590 73 = - D* YZ / Zz 
B600 RETURN 


RETURN 


LET X1I=TI*K+T4*T+T/ 
LET Y1l=T2*X+T5XY+TB 
LET Z1=T3*X+T6O*Y+T9 
LET X2=R1I*X1L+A7*YI+R8*ZI+R 


8500 
B510 
B520 
B540 
9 

8550 
3 

8560 
[o 

B5/75 
8580 
B590 
8600 


LET Y2=R2*X1I+SI*YI+SZAZI+S 
LET Z2=R3*K1+R4*Y1+R5*ZI+R 
IF Z2<ZN THEN RETURN 
LET XI=D*K2/Z2 

LET Y3=-D*Y2/22 
RETURN 


Essa rotina usa uma matriz aritméti- 
ca complicada para transformar as coor- 
denadas (X, Y), que são basicamente os 
passos de transformação descritos no ar- 
tigo anterior desta série — Programa- 
ção de Gráficos em 3-D (2). As linhas 
8500 a 8520 transformam o plano car- 
tesiano (X, Y) de duas dimensões (2-D) 
no espaço de três dimensões (3-D) (X1, 
Y1,Z1). As linhas 8540 a 8560 transfor- 





LI) 





mam as coodernadas espaciais (X1, Y1, 
Z1), de modo a posicioná-las de acordo 
com a localização do olho e a direção 
(X2, Y2, Z2). 

A linha 8575 testa se a nova posição 
a ser encontrada está excessivamente 
próxima do olho (ou seja, se Z2 estã en- 
tre O e ZN) ou se está situada atrás dos 
olhos. Em ambos os casos, a posição € 
ignorada, pois seria impossível visuali- 
zarmos o objeto. Se a posição estiver 
muito distante de ZN (a partir da posi- 
ção em frente ao olho), então a locali- 
zação das coodernadas da tela (X3, Y3) 
será calculada somente no fim da roti- 
na. O parâmetro D/Z2 nessas linhas 
acrescenta perspectiva à figura, proje- 
tando o objeto em uma tela plana a uma 
distância definida D. Se estabelecermos 
um valor pequeno para D, o efeito ob- 
tido será uma perspectiva mais nítida 
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(como se a tela estivesse mais próxima 
do usuário); se D for grande, a tela pa- 
recerá estar a uma grande distância do 
observador, de modo que o efeito de 
perspectiva será pequeno e a imagem 
aparecerá distorcida, mesmo quando 
vista obliquamente, de qualquer 
direção. 


| COMO INICIALIZAR AS VARIÁVEIS 


O próximo passo será reescrever as 
Rotinas de Inicialização e Desenho pa- 
ra podermos usar as novas rotinas de 
transformação. 
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9000 CLS 
9020 XM=256:YM=192 
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9030 XD=XM/2:YD=YM/2 

9040 ZN=1 

9042 CLS: INPUT"Distância do pla 
no de projeção: ":;D 

9045 IF D<O THEN D=1000*ZN 

9050 Tl=1:T2=0:T3=0 

9060 Tá=0:T5=1:T6=0 

9070 T/=0:T8=0:T9=0 

9085 CLS 

9090 RETURN 

9500 X=XS:Y=YS:GOSUB 8500:IF Z2 
<ZN THEN 9520 

9510 1IX=128+X3:17=97-Y3 

9520 X=XE:Y=YE:GOSUB 8B500:IF Z2 
<ZN THEN 9550 

9530 LINE (127+X3,95-73)-(IX,IY) 
e 

9550 RETURN 


Cato 
9000 HOME 


9020 KM = 280:YM = 192 








+ 


» 





9030 XD = XM / Z:YD = YM / 2 

9040 ZN = 1 

9042 INPUT “DISTANCIA AO PLANO 
DE PROJECAO ";D 

9045 IF D < O THEN 

ZN 

9050 Tl = 1:T2 = O:T3 =O0 

9060 T4 = O:T5 = 1:T6 = 0 

9070 T7 = O:T8 = O:T9 = 0 

9090 HOME RETURN 

9500 X = XS:Y = YS: GOSUB 8500: 
IF Z2 < ZN THEN 9520 

9505 IF X3< - 139 0R 73 < - 
95 OR X3 > 140 OR Y3 > 96 THEN 
9550 

9510 IX = 139 + X3:1Y 


D = 1000 * 






- 95 + Tã5 


9520 X = XE:Y = YE: GOSUB 8500: 
IF Z2 < ZN THEN 9550 

Voo ER AIG 12200 Tãs - 
95 OR X3 > 140 OR Y3 > 96 THEN 
9550 
9530 





HPLOT 139 + X3,95 + Y3 TO 








O O A O 


IX,IY 
9550 


9000 


9020 
9030 


RETURN 


CLS 

LET XM=256: 
LET XD=XM/2: 
9040 LET ZN=1 
9042 INPUT "IMTRODUZA DISTANCIA 
AO PLANO DE PROJECAO”,D 


LET YM=176 
LET YD=YM/2 


9045 IF D<=0 THEN LET D=1000*2 
N 

9050 LET Tl=l: LET T2=0: LET T3 
= 

9060 LET T4á=0: LET T5=1l: LET T6 
9070 LET T7=0: LET T8=0: LET T9 
=() 

9090 CLS : RETURN 

9500 LET X=XS: LET Y=Y5: 108UB 
8500: IF Z2<ZN THEN GOTO 9520 
9505 IF Xx3<-127 OR Y73<-87 OR K3 
>12B8 OR Y3>88 THEN GOTO 9550 
95810 PLOT 127+X3,8B7+Y3 

9520 LET K=XE: LET Y=TE: GOSUB 
8500: TE Z2<ZN THEN GOTO 9550 


9525 IF X3<-127 OR Y3<-B7 OR X3 
>128 OR Y3>88 THEN GOTO 9550 
9530 DRAW 127+X3-PEEK 23677,87+ 
Y3-PEEK 23678 

9550 RETURN 


9000 PCLS 

9020 XxM=256:YM=192 

9030 XD=XM/2: YD=YM/2 

9040 ZN=1 

9042 CLS: INPUT ” INTRODUZA A DI 
STANCIA AO PLANO DE PROJECAO ” 
:D 
9045 
9050 
9060 
9070 
9085 
9090 RETURN 

9500 X=-X5:Y=YS:GOSUB 8B500:IF Z2 
<ZN THEN 9520 

9505 IF X3<-127 OR Y3<-96 OR X3 
>128 OR Y3>95 THEN 9550 

9510 DRAW"BM"+STNS (INT(127+X3)) 
+", "+STAS (INT (95-Y3)) 

9520 X=XE:Y=YE:GOSUB 8B500:IF Z2 
<ZN THEN 9550 

9525 IF X3J<-127 OR Y3<-96 OR X3 
>128 OR Y3>95 THEN 9550 

9530 LINE -(127+X3,95-Y3), PSET 
9550 RETURN 


IF D<=0 THEN D=1000*ZN 
T1l=1:T2=0:T3=0 
Tá=0:T5=1:T6=0 
T7=0:TB=0:T9=0 

CLS 


A linha 9020 atribui às variáveis XM 
e YM as dimensões máximas da tela nas 
direções X e Y, respectivamente. A li- 
nha 9030 calcula o ponto médio; a 9040 
calcula a posição mais próxima permi- 
tida nos pontos a serem desenhados, 
conforme a posição do olho. 

A variável D nos dá a distância atual 
da posição do olho até o plano de pro- 
jeção (a tela) e determina a perspectiva. 
Os valores de D são inseridos quando 


rodamos o programa, de modo que po- 
demos variar o grau da perspectiva. Se 
nenhum valor for especificado e pressio- 
narmos ENTER ou RETURN a linha 
9045 adotará o valor 1000. As linhas 
9050 a 9070 atribuem valores para as 
constantes de transformação, especifi- 
cando o plano no qual será desenhada 
a imagem em perspectiva. 

Esse trecho do programa continua 
com a Rotina de Desenho revisada. Na 
linha 9500, são inicializadas as variáveis 
para as constantes de transformação; 
nas linhas 9505 e 9525 é feito um teste 
para determinar se o novo ponto a ser 
desenhado (linhas 9510 e 9530) está den- 
tro dos limites da tela. O MSX não pre- 
cisa desse teste, pois ele ignora os pon- 
tos fora da tela. Nos outros micros, O 
teste serve para prevenir contra mensa- 
gens de erro. 


“CHAME A ROTINA 





Precisaremos agora da rotina para 
desenhar a grade fornecida no primeiro 
artigo da série. Caso você não a tenha 
gravado, digite-a antes de inserir esta 
parte final do programa. 


a 


100 
110 
120 
125 
130 
140 
170 
150 GÓOSUB 1000 

160 GoOTO 130 

170 CLS 

180 END 

500 IF INKEY5S="" THEN 500 

505 CLS 

510 INPUT"Posição do observador 
(X,7,2): TX, F,4 

520 GOSUB 8000 

530 CLS:SCREEN 2 

540 RETURN 

1000 P=L/2 

1010 Tl=1:T2=0:T3=0 

1020 T4á=0:T5=1:T6=0 

1030 T7=-P:T8=-P:;T9=-P 

1040 GOSUB 1200 'BAIXO 

1050 T7=-P:T8=-P:T9=P 

1060 GOSUB 1200 “CIMA 

1070 T4=0:T5=0:T6=-]1 

1080 GOSUB 1200 'ESQUERDA 

1090 T7=-P:;T8B=P:T9=P 

1100 GOSUB 1200 'DITREITA 

1110 Tl=0:T2=-1:T3=0 

1120 GOSUB 1200 'TRAS 

1130 T7=P:T8=P:T9=P 

1140 GOSUB 1200 ' FRENTE 

1170 RETURN 

1200 XA=0:YA=0:LW=L:LH=L:NX=N:N 

Y=N 
1210 


PI=4*ATN(1) 

GOSUB 9000 

L=20:N=5 

GOSUB 505:GOTO 140 

GOSUB 500 

IF X=0 AND Y=0 AND Z=0 THEN 


GOSUB 5000 


1220 





- 


RETURN 


atol 


100 PI = 4 * ATN (1) 

110 GOSUB 9000 

120 L = 20:N = 5 

125 GOSUB 505: GOTO 140 

130 GosuUB 500 

140 IF X = O ANDY=OANDZ-= 
O THEN 170 

150 GOSUB 1000 

160 GOTO 130 

170 HOME 

180 TEXT : END 

500 GET TS: IF TS = "” THEN 50 
O 

505 TEXT : HOME 

510 INPUT "POSICAO DO OBSERVAD 

OR (X,Y,2Z) "4H Té 

520 GOSUB 8000 

530  HGR2 HCOLOR= 3 

540 RETURN 

1000 P = L/2 

1010 Tl = 1:T2 = O:T3 = 0 


1020 
1030 


110 
120 
125 
130 
140 
THEN 
150 
160 
170 
180 
500 
500 
505 
510 
O OB 
520 
530 
1000 
1010 
=0 
1020 
=0 
1030 
T9=-P 


Tá = O:T5 = 1:T6 = O 


7. = P:Tã = = P:T9 = 
GOSUB 1200: REM BAIXO 

7 = = Pp:iT8 = = P:T9 = P 
GOSUB 1200: REM CIMA 


Tá = 0:T5 = O:T6 = - 


GOSUB 1200: REM ESQUERDA 
17 = = P:T8 = P:T9 = P 
GOSUB 1200: REM DIREITA 


Tl = 0:T2 = - 1:T3 = 0 
GOSUB 1200: REM TRAS 
T7 = P:TS = P:T9 = P 
GOSUB 1200 REM FRENTE 
RETURN 
XAã = O:YAÃ = O:LW = L:LH = 
= N:NY = N 
GOSUB 5000 
RETURN 


GOSUB 9000 

LET L=20: 

GOSUB 505: 

GOSUB 500 

TE Xx=0 AND Y=0) AND Z=0 
GOTO 170 

GOSUB 1000 

GOTO 130 

CLS 

STOP 

IF INKEYS="" 


LET N=3 
Goto 140 


THEN GOTO 
CLS 

INPUT "INTRODUZA POSICAO D 
SERVADOR (X,Y,2)",X,7,2Z 
GOSUB 8000 


RETURN 

LET P=L/2 

LET Tl=1: LET T2=0: LET T3 
LET T4á=0: LET T5=1: LET T6 
LET T7=-P: LET T8=-P; LET 





1040 GOSUB 1200: REM BAIXO 

1050 LET T?7=-P: LET TB=-P: LET 
T9=P 

1060 GOSUB 1200: REM CIMA 

1070 LET Tá=0: LET T5=0: LET T6 
= 

L080 GOSUB 1200: REM ESQUERDA 
1090 LET T/=-P: LET TB=P: LET T 
9=P 

1100 GOSUB 1200: REM DIRETTA 
1110 LET Tl=0: LET T2=-): LET T 
3=0 

1120 GOSUB 1200: REM TRAS 

1130 LET T7/=P: LET TB=P: LET T9 
=p 

1140 GOSURB 1200: REM FRENTE 
1170 RETURN 

1200 LET XA=0: LET YA=0: LET LW 


=L: LET LH=L: LET NX=N: LET NTf= 
N 

1210 GOSUB 5000 

1220 RETURN 


PI=4*ATN(1): PMODE 4,1 

GOSUB 9000 

L=20:N=5 

GOSUB 505:GOTO 140 

GOSUB 500 

IF X=0 AND Y=0 AND Z=0 THEN 


GOSUB 1000 

Goto 130 

CLS 

END 

IF INKEYS="" THEN 500 

CLS 
| INPUT” INTRODUZA A POSICAO 
DO OBSERVA- DOR (X,Y,Z) ";X,Y,2Z 
520 GOSUB 8000 
530 PCLS:SCREEN 1,1 


540 RETURN 

1000 P=L/2 

1010 Tl=1:T2=0:T3=0 

1020 Tá=0:T5=1:T6=0 

1030 T7=-P:TB=-P:T9=-P 
1040 GOSUB 1200 "BAIXO 
1050 T7=-P:T8=-P:T9=Pp 
1060 GOSUB 1200 “CIMA 
1070 Tá=0:T5=0:Tó=-1 

1080 GOSUB 1200 'ESQUERDA 
1090 T7=-P:TB=P:T9=Pp 
1100 GOSURB 1200 'DIREITA 
1110 Tl=0:T2=-1:T3=0 
1120 GOSUB 1200 'ATRAS 
1130 T7=P:TB=P:T9=P 

1140 GOSUB 1200 ' FRENTE 
1170 RETURN 

1200 XA=0:TA=0:LW=L:LH=L:NX=N:N 
t=N 

1210 GOSUB 5000 

1220 RETURN 


Agora, rode o programa. Se ele esti- 
ver funcionando corretamente, o com- 
putador acessará a rotina de inicializa- 
ção que começa na linha 110. Essa roti- 
na inicializa algumas variáveis e impri- 
me uma mensagem que pede um valor 
para D, a distância do plano de proje- 
ção. A perspectiva nesse programa é fei- 


ta de tal maneira que, quanto maior a 
distância, mais afastado aparecerá o ob- 
jeto. Devemos entrar com o valor 1000 
para começar. O programa retorna pa- 
ra a linha 120, que especifica o compri- 
mento (L) de cada lado do cubo, e o nú- 
mero de grades quadradas (N) ao longo 
de cada lado. As linhas 130 a 160 lêem 
as coordenadas da posição do olho (li- 
nha 510), e desenham o cubo a partir 
dessa posição. Assim que obtivermos a 
primeira imagem do objeto desenhado, 
podemos digitar um novo conjunto de 
coordenadas e ver o cubo por um outro 
ângulo. Quando entramos os valores 0, 
0e0,o programa termina, A rotina das 
linhas 500 a 530 chama a rotina de po- 
sição (linha 120) para inicializar as cons- 
tantes de transformação. A rotina do 
Cubo (linhas 1000 a 1170) posiciona e 
desenha cada um dos seis lados. A roti- 
na Lado (linhas 1200 a 1220) desenha ca- 
da lado como uma grade, usando a Ro- 
tina da Grade. 

Tente valores diferentes para a posição 
do olho e estude os efeitos decorrentes. 
O valor 1000 para D e 250,0€e 0 para X, 


Ye Z são bons para começar. Depois, ' 


adote 100 para De 25,0ec0paraX, Ye 





Z. O cubo deverá aparecer do mesmo ta- 
manho, mas a perspectiva será muito 
mais pronunciada. Para digitar novos 
valores para X, Y e Z devemos pressio- 
nar qualquer tecla e a mensagem apare- 
cerá. Para atribuir novos valores a D, 
interrompa o programa com < BREAK > 
ou <RESET> e rode-o novamente. 
Uma mensagem aparecerá para D, se- 
guida de outra para X, Ye Z. 

Como o programa ignora eventuais 
erros ocasionados por pontos fora da te- 
la, os resultados podem ser bastante es- 
tranhos (neste caso, uma linha inteira é 
omitida, mesmo quando apenas uma de 
suas extremidades excede o ponto má- 
ximo permitido). Para pontos mais pró- 
ximos do que uma certa distância miíni- 
ma e pontos localizados atrás do olho, 
ZN será ignorado. Dessa maneira, se a 
posição do olho estiver muito próxima, 
ou mesmo dentro do cubo, poderão 
ocorrer falsos resultados. 

Finalmente, é aconselhável guardar 
uma cópia da listagem completa em fi- 
ta ou disco, de modo a usar as mesmas 
rotinas para desenhar formas duplica- 
das e produzir gráficos circulares em fu- 
turos programas. 











“o contrário das máquinos de escrever, | 





sempre prontas para serem 

operadas, as impressoras só podem ser 
usadas com um computador depois 
que certas condições são satisfeitas. 


Se você leu Como Escolher uma Imn- 
pressora (página 521), já sabe como agir 
| para adquirir um desses periféricos. 

Dependendo da marca e do modelo 
do micro, além da impressora, você pre- 
cisará provavelmente de uma interface 
que a compatibilize com ele. 

Mas adquirir uma impressora e sua 
respectiva interface pode não resolver 
todos os problemas. Com efeito, mui- 
tos usuários descobrem, após a compra, 
que ainda precisam de um bom tempo 
para ligar o novo periférico e fazê-lo 
funcionar de modo fluente. E que isso 
exige informações complementares so- 
bre quais são os códigos de controle ade- 
quados, como enviá-los à impressora e 
como trabalhar com todas aquelas fun- 
ções especiais, que pareciam prometer 

| tanto e que o fizeram sair de casa e ad- 
quirir a impressora. 

Neste artigo, tentaremos esclarecer 
alguns dos pontos ainda obscuros e 
orientá-lo no sentido de resolver as di- 
ficuldades mais comuns que surgem pa- 
ra aqueles que desejam se equipar com 
uma dessas máquinas. 


Suponhamos que você já 
adquiriu uma impressora, 
que a conectou à tomada, 
e que está agora no pon- 
to em que não sabe co- 
mo fazer para colo- 
car tudo aquilo em 
funcionamento... 

O primeiro 
conselho é: não li- 
gue ainda o peri- 

érico. Existem 
uma ou duas col- 

sas que você de- 

ve fazer primei- 

ro; para muitas 
impressoras, O mais 
importante de tudo é 
a remoção do parafu- 
so de fixação para 
transporte (usado para imobilizar a má- 
quina quando ela é levada de um lugar 
para outro), 

Algumas Impressoras não têm meca- 
nismo de proteção para transporte; por- 
tanto, verifique com bastante atenção o 
manual de instruções do fabricante. Ge- 
ralmente, existem dois ou três parafu- 


sos, que podem ser auxiliados por elás- 
ticos ou fitas adesivas. Estes devem ser 
removidos cuidadosamente, pois as úl- 
timas coisas de que você vai necessitar 
quando estiver imprimindo serão elas- 
ticos e fitas adesivas. Quanto aos para- 
fusos, mantenha-os à mão: você talvez 
precise reutilizá-los em caso de transpor- 
te da impressora. 















IRES ER E E ES SCEDOC.. 


pequena luz, vermelh 
nada a avisar sea fon , e 


ssora não funcionar na pri- 
meira, tentativa, não se pes tor Eua 


nar Fo que é, aliás, muito mais prová- 
vel), desligue-a novamente e coloque o 

papel (e a fita impressora, caso isto se- 
ja necessário). 


O PAPEL 


Há dois tipos básicos de impressora 
quanto ao tipo de papel usado: as que 
empregam formulários continuos (papel 
dobrado em z, com perfurações nas 
margens) e as que utilizam folhas soltas 
ou papel alimentado por bobinas. As 
máquinas mais versáteis — como as 
compatíveis com a linha Epson — acei- 
tam os dois tipos de papel. Impressoras 


to pode provocar ro ompin 
1 OU levá-lo a enre 
AUTOTESTE 


E Ea 


No caso de sua 1 
recursos para um O retesde é a 
te acioná-los assim que ela esti 
para trabalhar. Esse tipo de rtticação 


consiste em imprimir ininterruptamen= 


te um conjunto completo de caracter 
Ele: serve para dois Pio g! 


ares ao para dxibir o conjun- 
to de caracteres disponíveis no peri- 
férico. 

Nas impressoras de tipo mais co- 
mum, o autoteste é acionado quando se 
pressiona o botão de avanço de linha ou 
de formulário. 

Para parar o autoteste, basta desligar 
a impressora. (Algumas máquinas dis- 
põem de um botão especial para acio- 
nar o autoteste.) 


FITAS DE IMPRESSÃO 


A última e mais importante etapa 
dessa sequência é a ligação da impres- 
sora ao andado doa Em muitos casos 


usam O ds Te Centronies ( 
e ip como acor 


nector claramente reservado fara. aim- | 
pressora. Nos computadores da linha | 
Sinclair (Z2X-81 e Spectrum), é necessá- 
rio uma interface especial, que é conec- 
tada no mesmo ponto destinado a ligar 
outros tipos de expansão (memória, sin- 
tetizadores de voz etc.). Nesse caso, é 
preciso, quase sempre, desligar uma ex- 
pansão já existente, para poder colocar 
a Interface da impressora, a não ser que 












você tenha comprado uma interface com 
um conector adicional de expansão. Es- 
se sistema é conhecido como '“'encadea- 
mento em margarida” e deve ser feito 
com certa precaução. 

Se você vai adquirir uma impressora 
que não é específica para o seu compu- 
tador, deve tomar alguns cuidados. Se 
o seu micro é um MSX, ou um TK-2000, 
por exemplo, a impressora deve ser, 
obrigatoriamente, do tipo paralelo, pa- 
drão Centronics (a maioria das impres- 
soras mais populares, como a Mônica, 
a Grafix e outras compatíveis com os 
modelos Epson e Seikosha tem esse pa- 
drão). Os micros da linha Apple podem 
trabalhar tanto com impressoras para- 
lelas como com as seriais, que usam O 
padrão RS-232C, dependendo da inter- 
face que se vai utilizar. Já os micros 
compatíveis com o TRS-Color usam 
apenas impressoras seriais. 

Ao conectar o cabo, você notará que 
a maioria das impressoras tem soquetes 
que impedem uma ligação em posição 
invertida. Isso não ocorre com a impres- 
sora para os micros da linha TRS5-80 
(por exemplo, o CP-500), que aceitam 
o soquete em qualquer posição. 

Se você quiser conectar uma impres- 
sora de fabricante independente nos mi- 
cros da linha Sinclair (Spectrum e 
ZX-81), precisará adquirir uma interface 
especial. As interfaces para tais micros 
existentes no mercado nacional devem 
ser ligadas a impressoras paralelas com 
o padrão Centronics. 

Em alguns casos, a interface só fun- 
ciona quando o computador é carrega- 
do com um programa específico para is- 
so. Entretanto, uma vez que você tenha 
uma, poderá ligar praticamente qual- 
quer impressora ao seu computador. As 
melhores interfaces são oferecidas pelos 
próprios fabricantes de micros, mas 
mesmo assim é bom fazê-las funcionar 
antes de adquiri-las. 





COMANDOS DE CONTROLE 


Qualquer coisa a ser impressa tem 
que ser enviada primeiro pelo compu- 
tador à impressora, através do cabo de 
conexão. Os comandos usados para 
controlar a impressora variam de com- 
putador para computador, e em geral 
consistem de algumas instruções 
simples. 


O Spectrum e o ZX-81 se comunicam 
com a impressora por comandos simples 
em BASIC, de fácil manipulação. O co- 
mando LPRINT tem um efeito similar 





ao PRINT; com ele, porém, a saída vai 
para a impressora e não para a tela. No 
ZX-81, todas as regras do PRINT va- 
lem também para o LPRINT. No Spec- 
trum, entretanto, não se tem a mesma 
liberdade de especificar o tipo de im- 
pressão, como se faz com o comando 
PRINT. Por exemplo, não é possível 
utilizar os comandos PAPER, INK, 
OVER, FLASH e BRIGHT. O INVER- 
SE só funciona em certos tipos de im- 
pressoras gráficas. O mesmo acontece 
com os caracteres gráficos que podem 
ser colocados dentro de um PRINT, 
tanto no ZX-81 quanto no Spectrum (as 
impressoras não específicas para tais mi- 
cros não dispõem desses caracteres no 
seu conjunto de impressão). O PRINT 
AT também não funciona na im- 
pressora. 

Assim como o comando PRINT é 
substituído por LPRINT, o LIST dá lu- 
gar a LLIST, que lista o programa da 
memória na impressora. Quando a lis- 
tagem ocupar mais de uma tela, LLIST 
gerará uma impressão contínua, inde- 
pendentemente do tamanho do 
programa. 

O terceiro comando BASIC usado 
para acionar a impressora é o COPY. 
Ele copia o que estiver na tela por um 
processo denominado descarregamento 
de tela. Quando a impressora é utiliza- 
da para produzir pontos em vez de le- 
tras é chamada de impressora gráfica. 
Você pode trabalhar com o COPY pa- 
ra fazer uma cópia da tela contendo os 
resultados de um texto ou de uma lista- 
gem de programa em qualquer tipo de 
impressora. A cópia de telas gráficas 
funcionará apenas se a impressora for 
específica para o seu computador (uma 
impressora gráfica, portanto). 

O TK-90X emprega uma interface 
paralela, própria para acionar uma im- 
pressora e que exige o carregamento pré- 
vio de um programa de controle (dri- 
ver). Esse programa é vendido em con- 
junto com a interface, com um cabo de 
conexão e com um manual de instru- 
ções. O software só precisa ser carrega- 
do uma vez ao se ligar o computador. 
Mas, sempre que este for desligado, se- 
rá preciso carregá-lo novamente. O soft- 
ware permite a utilização dos comandos 
LPRINT, LLIST e COPY. 

Já os micros da linha ZX-81, como 
o TK-85, requerem também uma inter- 
face paralela; mas não é preciso carre- 
gar um software de controle para usar 
diretamente os comandos citados. 


r1 


Os micros da linha Apple podem ser 
conectados tanto a impressoras seriais 
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como a impressoras paralelas. Para is- 
so, é necessário adquirir separadamen- 
te a interface adequada de controle; esta 
deve ser encaixada em um dos soquetes 
internos do console do computador. De 
forma geral, costuma-se dar preferência 
à interface paralela, uma vez que é 
maior o número de impressoras que se- 
guem esse padrão. 

A impressora é tratada, pelo BASIC 
e pelo sistema operacional, como um 
dispositivo de saída que recebe o núme- 
ro lógico correspondente ao soquete no 
qual foi inserida a placa de controle. As- 
sim, se encaixarmos a placa no soquete 
1 (a localização mais comum) e quiser- 
mos ativar a impressora, é necessário di- 
gitar o comando em BASIC: 


PR$L 


A partir desse momento, todo 
PRINT ou LIST que for digitado em 
modo direto, ou encontrado dentro de 
um programa, terá sua saída direciona- 
da tanto para a tela quanto para a im- 
pressora (modo eco). Portanto, o PR 
pode ser colocado em pontos seleciona- 
dos de um programa, para “ligar” e 
“desligar” o eco na impressora. 

Os micros da linha Apple não dis- 
põem, como os de outras linhas, de co- 
mandos especificos para a impressora, 
como LLIST, LPRINT etc. Por moti- 
vos óbvios, os comandos de posiciona- 
mento do cursor, como HTAB e VTAB 
não funcionam com a impressora. 

A interface de comunicação adequa- 
da aos micros da linha MSX é do tipo 
paralela padrão Centronics. Tanto ela 
quanto o conector para o cabo de liga- 
ção já estão incluídos na configuração 
básica da máquina. 

Existem três protocolos de impressão 
(conjuntos de caracteres de impressão 
diferentes) para micros da linha MSX. 
O primeiro padrão é o MSX Internacio- 
nal, que segue a tabela de caracteres AS- 
CII especiais e gráficos do padrão MSX 
original. Esse padrão é seguido por mais 
de trinta fabricantes de todo o mundo. 
O segundo é o ABICOMP (Associação 
Brasileira de Indústrias de Computado- 
res): ele segue normas nacionais, que in- 
cluem os caracteres acentuados da lin- 
gua portuguesa. Finalmente, temos um 
terceiro protocolo, criado no Brasil pe- 
la Gradiente para os primeiros modelos 
do Expert MSX. Ao se adquirir uma im- 
pressora, é necessário especificar qual o 
padrão seguido pelo micro; caso contrá- 
rio, a impressora não funcionará corre- 
tamente. 

Os comandos usados com o BASIC 





para o controle da impressora são tam- 
bém bastante simples e diretos. 

O comando LPRINT tem um efeito 
similar ao PRINT; com ele, porém, a 
saída vai para a impressora e não para 
a tela. Todas as regras de sintaxe que va- 
lem para o PRINT servem para o 
LPRINT, inclusive quando se trata do 
emprego de TAB e USING. Entretan- 
to, os comandos de especificação de co- 
res (como o COLOR) e os de localiza- 
ção bidimensional do cursor (como o 
LOCATE) não funcionam na impresso- 
ra. O mesmo acontece com os caracte- 
res gráficos e especiais que podem ser 
colocados dentro de um PRINT, uma 
vez que impressoras não especificas pa- 
ra esse micro não dispõem desses carac- 
teres no seu conjunto de impressão. 

Assim como o comando PRINT é 
substituído por LPRINT, o comando 
LIST é substituído por LLIST, que lis- 
ta O programa da memória na impres- 
sora. Quando a listagem tomar mais de 
uma tela, LLIST gerará uma impressão 
continua independentemente do tama- 
nho do programa. As regras de utiliza- 
ção do LIST valem para o LLIST. Ou- 
tra função útil, de uso exclusivo da im- 
pressora, é a LPOS, que informa ao 
programa a posição lógica da cabeça de 
impressão, em número de colunas a par- 
tir da margem esquerda de uma linha. 


Também nos micros da linha TRS-8O 
a interface de comunicação é do tipo pa- 
ralela padrão Centronics, e ela e o co- 
nector para o cabo de ligação incluem- 
se na configuração básica das máquinas 
mais completas, como o CP-500, 

Os comandos usados com o BASIC 
para o controle da impressora são sim- 
ples e diretos. O LPRINT tem um efei- 
to similar ao PRINT, embora direcione 
a saída para a impressora e não para a 
tela. Todas as regras de sintaxe do 
PRINT valem para o LPRINT ( o que 
inclui as expressões TAB e USING). 
Entretanto, os comandos de locali- 
zação bidimensional do cursor 
como PRINTGO não funcionam 
com a impressora. O mesmo se 
dá com os caracteres gráficos e 
especiais que podem ser coloca- 
dos dentro de um PRINT, já 
que impressoras não especificas 
para o TRS-80 não têm esses si- 
nais no seu conjunto de im- 
pressão. | 

Assim como o comando PRINT dá 
lugar a LPRINT, o LIST é substituído 
por LLIST, que lista o programa da me- 
mória na impressora. Se a listagem to- 
mar mais de uma tela, LLIST gerará 
uma impressão continua independente- 
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mente do tamanho do programa. As re- 
gras do LIST valem para o LLIST. 
Outra função útil, de uso exclusivo 
da impressora, é a LPOS, que informa 
o programa a respeito da posição lógi- 
ca da cabeça de impressão, em número 
de colunas a partir da margem esquerda. 


Os micros da linha TRS-Color dis- 
põem só de uma porta serial para comu- 
nicação com periféricos, que é a usada 
para conexão com a Impressora. Mes- 
mo assim, o controle da impressão (fei- 
ta por alguns comandos do BASIC) nes- 
ses micros também é simples. Para lis- 
tar um programa digite LLIST (segui- 
do por <ENTERD>). Todas as regras 
do LIST valem para o LLIST, só que 
a saída vai para a impressora, e não pa- 
ra a tela. Para usar PRINT com a im- 
pressora, é preciso digitar a expressão: 


PRINTA-2," TEXTO” 


Ela determina ao computador que 
envie sua saida (aqui a palavra TEXTO) MM 


ao periférico -2, que é o número de iden- 
tificação para a Impressora (mais exa- 
tamente, para a interface serial). Repa- 
re que há uma vírgula após o -2 no co- 
mando acima. Ela informa ao compu- 
tador que a seguir vem um texto para 
ser impresso. Além disso, se usado com 
impressoras capazes de imprimir letras 
minúsculas, o texto que está em vídeo 
inverso na tela aparecerá em minúscu- 
las na impressora (é necessário pressio- 
nar <SHIFT> <0> antes). 

Assim, o comando PRINT 4-2 tem 
um efeito similar ao PRINT (com uma 
diferença: ele determina que a saída vá 
para a impressora, e não para a tela), 
As regras de sintaxe do PRINT valem 
para o PRINT &-2, inclusive quando 
aparecem as expressões TAB e USING. 
Porém, os comandos de especificação de 
cores, e de localização bidimensional do 
cursor, como PRINTO, não funcionam 
com a impressora. O mesmo se dá com 
os caracteres gráficos e especiais que po- 
dem ser colocados dentro de um 


e 




































Re e - 
+ 


mi o 











PRINT, pois as impressoras não espe- 
cíficas para o TRS-Color não têm esses 
sinais em seu conjunto de impressão. 

Outra função de uso exclusivo da im- 
pressora é a POST(-2): informa a posi- 
ção lógica da cabeça de impressão, em 
número de colunas a partir da margem 
esquerda de uma linha. 





“PROGRAMAÇÃO INTERNA DA IMPRESSORA 


Quem deseja dominar os segredos do 
trabalho com impressoras precisa co- 
nhecer primeiro como se faz sua progra- 
mação interna e externa. A programa- 
ção interna é feita normalmente por 
meio de microinterruptores (os DIP) e 
fios removíveis de conexão (os estrapes), 
situados na placa interna da máquina. 
Já a externa é realizada através de se- 
quências de caracteres de controle (deno- 
minados segiiências de escape por come- 
carem com o código ASCII 27, corres- 
pondendo ao caractere de controle cha- 
mado ESCAPE). 

Dentro das impressoras e de outros 
equipamentos eletrônicos, você encon- 
trará um conjunto de pequenas chaves: 
as chaves DIP. Elas podem ser usadas 
para alterar o estado da impressora, 
quando ela for ligada (o estado default, 
ou predefinido). São comumente inicia- 
lizados por chave o comprimento da li- 
nha, o espacejamento, o retorno do car- 
ro e o comprimento da página. As im- 
pressoras de tecnologia japonesa permi- 
tem ainda que você selecione o conjun- 
to de caracteres internacionais de que 
precisa (exemplo: o sinal da libra ester- 
lina, ou acentos para certos caracteres, 
empregados em idiomas como francês, 
sueco e português). 

Para encontrar os interruptores de 
programação interna, consulte o manual 
da impressora: em geral, eles estão lo- 
calizados sob a tampa da impressora (es- 
ta, porém, só deve ser removida quan- 
do a impressora estiver desconectada da 
corrente elétrica). 

Uma vez localizadas as chaves DIP, 
você pode trocá-las de posição 
empurrando-as delicadamente com os 
dedos ou com uma chave de fenda. O 
manual de instruções deve ter um dia- 
grama do DIP e de suas posições, de 
modo a mostrar para que elas estão se- 
lecionadas. Faça um teste você mesmo. 

Outras características de uma impres- 
sora (como, por exemplo, o fato de to- 
do caractere de alimentação de linha ser 
seguido automaticamente de um retor- 
no de carro) podem ser alteradas 
removendo-se ou inserindo-se um estra- 
pe (pequeno fio em forma de U, com co- 
nectores em ambas as pontas) em pon- 


tos apropriados da placa eletrônica da 
máquina. Antes de fazer isso, porém, é 
conveniente consultar o manual especi- 
fico da sua impressora. 


CÓDIGOS DE ESCAPE 





Algumas impressoras (como a Môni- 
ca, por exemplo) admitem o envio de có- 
digos de controle, da mesma forma que 
se enviam os dados a serem impressos. 
Esses códigos são frequentemente cha- 
mados de sequências de escape. Assim, 
muitas impressoras esperam que você 
coloque o código para o escape, CHRS 
(27), antes do código de controle. Isso 
permite à impressora saber que O que es- 
tá chegando no momento é uma men- 
sagem de programação externa, e não 
um caractere a ser impresso. 

Cada impressora tem as suas seguên- 
cias de escape próprias, embora os ca- 
racteres usados nas máquinas compati- 
veis com a Epson estejam se tornando 
rapidamente um padrão para impresso- 
ras que oferecem facilidades similares. 
Nas máquinas mais versáteis há um 
enorme conjunto de sequências de esca- 
pe. Estas podem ser enviadas por um co- 
mando LPRINT normal. 

Em uma Epson, o exemplo a seguir 
imprime a palavra COMPUTADOR em 
modo enfatizado, desde que tenham si- 
do enviados os comandos corretos. 


SS bas 


LPRINT CHR3 (27) ;'E';' COMPUTADOR 


PR$1 
PRINT CHR$(27);'E';'COMPUTADOR' 


PRINTA-2,CHR$S(27);'E';'COMPUTAD 
OR" 


Mas não se esqueça de voltar ao mo- 
do normal. Para isso, use os seguintes 
comandos: 


ES Em 


LPRINT CHRS$S(27);'F' 


ra 


PRéI 
PRINT CHN$(27); F' 


PRINT4-2,CHR$S(27);'F' 








Lembre-se, porém, de que esses có- 
digos são exclusivamente para as Im- 
pressoras Epson e as que são compatí- 


veis com ela. Para outras impressoras, 
os códigos serão diferentes. 


OS CÓDIGOS EPSON 





Os efeitos mais comuns obtidos com 
os códigos de escape do tipo Epson são 
os seguintes: impressão em itálico, im- 
pressão grifada, impressão em negrito, 
subscritos e sobrescritos. Certas opera- 
ções variam de máquina para máquina. 
As que apresentamos a seguir funcio- 
nam na maioria das impressoras com- 
patíveis com a Epson: 

ESC 4 ativa um conjunto alternativo de 
caracteres (geralmente o itálico). 

ESC 5 retorna ao conjunto padrão. 
ESC - ativa e desativa o grifo. Deve ser 
seguido por CHR$(1) ou por CHR$(49); 
para a alteração, é desativado por 
CHRS$(0) ou CHR$(48), conforme tenha 
sido ativado por CHRS(I) ou por 
CHR$(49). 

ESC G ativa o modo dupla impressão, 
ESC H desativa o modo dupla im- 
pressão. 

ESC S, quando é seguido de CHRS$(0), 
ativa o modo de sobrescrição; quando 
é seguido de CHRS$(1), ativa o modo de 
subscrição. 

ESC T retorna a impressora ao modo 
normal depois de ativado o modo de 
subscrição ou sobrescrição. 

ESC O inicia a impressora e volta to- 
dos comandos aos valores originais. 

Você pode usar as sequências de es- 
cape em praticamente todas as impres- 
soras conhecidas, colocando-as depois 
do comando que o seu computador usa 
para enviar uma saída à impressora 
(LPRINT, PRINT &-2, ou qualquer ou- 
tro) e separando-as por pontos e virgu- 
las, assim como se faria com qualquer 
outro comando CHRS. 

Algumas impressoras exigem que se 
coloque um caractere ASCII para o ES- 
CAPE entre todos os códigos de contro- 
le. O manual de instruções deve dizer se 
você vai ou não precisar disso. 


NOVAS TENDÊNCIAS 





As sequências de escape terão um pa- 
pel mais importante na medida em que 
as impressoras se tornarem mais bara- 
tas e sofisticadas. Já existem impresso- 
ras com matrizes de ponto cuja quali- 
dade é quase a mesma das impressoras 
“margarida”; algumas delas têm carac- 
terísticas próprias usualmente associa- 
das com fotocomposição profissional, 
tais como: espacejamento proporcional 
e justificação automática à direita ou à 
esquerda. 








ATERRISSAGEM 


Agora que você já é um lrelativo) às 

da aviação, desligue o piloto 
automático e, com apenas três funções, 
faça o aparelho aterrissar. 

Mas tenha cuidado com os urubus. 


Ultima parte de nosso programa si- 
mulador de vôo, este artigo fará com 
que você possa finalmente assumir o 
controle direto do avião. Três pares de 
teclas permitirão aumentar e diminuir a 
rotação do motor, virar o aparelho pa- 
ra os lados, subir ou descer. 

Nossa viagem começou a 20.000 me- 


tros do centro da pista e a 2.000 metros 
de altura. 

Pilotar pode ser uma tarefa dificil... 
sobretudo se você nada sabe do assun- 
to. Não espere bons resultados nos pri- 
meiros vôos: como em tudo na vida, a 
habilidade só vem com o tempo, 

Relativamente lentos por estarem em 
BASIC, programas como esse parecem 
ainda mais morosos pelo fato de não 
permitirem mudanças bruscas de curso. 
Com paciência e perseverança, porém, 
você conseguirá controlar o aparelho e 
melhorar seus pousos. O programa o 
manterá informado a respeito de cada 
aterrissagem ou acidente. Essas mensa- 
gens são importantes: será por meio de- 


E | UMAROTINA DE CONTROLE 

DO AVIÃO PELO TECLADO 
Es A ATERRISSAGEM 
mg ACIDENTES AÉREOS 
[o PERDAS E DANOS 





las que você saberá não só o que está 
acontecendo em cada momento como 
também onde se encontram suas prin- 
cipais deficiências. 


3000 LET POW=D: LET KS=INKEYS: 

JF K5="" THEN RETURN 

3010 TF K$="S5" THEN LET POW=-1 
BOZO 1F K5="F” THEN LET POW=] 

3030 IF K$=]0" THEN LET PT=PT+ 
| 

3040 TE K5="A" THEN LET 

| 

3050 IF K$="0” AND BL>-30 THEN 
LET RL=RL-1 

1060 IF K5="P” 

LET RL=RL+] 


PT=PT- 























AND BL<30 THEN e | 



















3070 RETURN 

5020 CLS INPUT "VELOCIDADE DO 
VENTO (1-50 M/8)",RKO 
5025 IF X0>50 OR X0SI 
O 5020 

5030 INPUT "DTRECAO DO VENTO (O 
- 359 GRAUS)".X1 

5035 [IF X1>359 OB XxI<0 
TO 5030 
5040 LET 
5050 PRINT 
O= ".3*x0:" M/S": 
O= ":X1;" GRAUS" 


THEN GOT 


THEN GO 


HO0=X0/3 


""VELOCIDADE DO VENT 
PRINT “DIRECA 


5055 PAUSE 100: CLS 

5060 LET WY==X0*COS (X14C) 
S070 LET WX=-=X0*SIN (X1L*C) 
5500 COSUB 3000: GOSUB 1000 
SS10 IF PZ<=0 THEN GOTO 6000 


5520 GOSUB 2000 
5530 GOTO 5500 
6000 TF ABS RL2BT OR PT>TP OR P 


T<0O OR VV>80 THEN GOTO 6030 
GULO IF ABS PxX>WH OR ARS PY>2100 
O THEN GOTO 6060 

6020 CLS PRINT ” PARABENS! ": 
PRINT "ATERRISSAGEM BEM SUCEDID 
A.": GOTO 6100 

6030 FOR N=0 TO 20 STEP .5: PLO 
T 127.130: DRAW 120-INT (RND*24 
01,95-INT (RND*90): SOUND .005, 
20-N: NEXT N 

6040 PAUSE 50 

6050 CLS PRINT "LAMENTAMOS IN 
FORMAR QUE O VOO PJ-26 SOFREU 
UM GRAVE ACIDENTE. NÃO HA SOBR 
EVTIVENTES.": GOTO 6100 


6060 CLS PRINT "VOCÊ POUSOU F 
ORA DA PISTA” 

6070 IF VV<40 THEN PRINT "COMO 
SUA VELOCIDADE ERA BAIXA QUA 
SE NADA ACONTECEU.": GOTO 6100 
6080 TF VVU<BO THEN PRINT “ENTR 
E MORTOS E FERIDOS SAI. 
VARAM-SE TODOS.": GOTO 6100 
6090 PRINT “NTNGUEM SOBREVIVE A 
UM POUSO NESSA VELOCIDADE!” 
6100 PRINT '"VALORES RELATIVOS 
ÃO POUSO” 

6110 PRINT '"VELOCIDADE DO AR= 
"INT VUV;”" M/S": PRINT "DISTANC 
LA= "; INT (SQR (PY*PY+PXTPA)): 
PRINT "INCLINACAO FRONTAL= ";PT 
6120 PRINT “INCLINACAO LATERAL= 
"AL: PRINT "ROTACAO DO MOTOR= 
"JINT (10*TC)/10;" X 1000" 
6130 PRINT "DESVIO DO ETXO DA P 
ISTA= "; INT ABS PX;" METROS": P 
RINT “DIRECAO= ";AD;" GRAUS” 
6140 PRINT '"QUER VOAR NOVAMENT 
E (S/N) 7" 

6150 LET AS=INKEYS: IF AS<>2"5" 
AND AS<>"N” THEN GOTO 6150 
6160 IF AS="N" THEN CLS 
6170 RUN 


A sub-rotina que vai de 3000 a 3070 
nos dará o controle do aparelho. 

Usando o comando INKEYS$ para 
detectar teclas, podemos modificar a ro- 
tação do motor, virar o aparelho, subir 
ou descer. Uma nova variável — POW 
aparece nas linhas 3010 e 3020; ela 
serve para alterar a rotação. Um valor 


STOP 


e —— O O O MM O e mm 


zero é atribuído a POW na linha 3000 
cada vez que a sub-rotina é chamada. A 
tecla S determina a velocidade, enquan- 
to F acelera o motor. 

Qe A são usadas para provocar a as- 
censão e a descida do avião, somando 
ou subtraindo 1 à variável PT nas linhas 
3030 e 3040. Finalmente, podemos usar 
O ou P para virar o aparelho — as li- 
nhas 3050 e 3060 cuidam disto, alteran- 
do o valor de RL. 

As linhas 5020 a 5070 permitem va- 
riar o nível de dificuldade do jogo, es- 


- colhendo a força e a direção do vento. 


A opção mais fácil é a de um vento de 
um metro por segundo em uma direção 
de zero grau. A partir da nossa opção, 
a linha 5060 calcula a velocidade do ven- 
to na direção frontal do aparelho, e a 
linha 5070 calcula a componente lateral 
dessa velocidade. SIN e COS servem pa- 
ra calcular as componentes em cada di- 
reção. WX e WY são usadas para alte- 
rar a posição do aparelho — GX e GY 
na linha 5080. 

A “alma” do programa é constitui- 
da pelas linhas 5500 a 5530, que cha- 
mam todas as grandes sub-rotinas em se- 
quência; desse modo, a posição é mo- 
dificada continuamente. 

A linha 5510 verifica, por intermédio 
do valor de PZ, se o avião aterrissou, 
O programa vai então para o segmento 
que verifica se a aterrissagem foi satis- 
fatória ou desastrosa. 

A linha 6000 verifica se as inclinações 
lateral e frontal do avião estão fora de 
limites aceitáveis, ou se a velocidade é 
maior que oitenta metros por segundo. 
Se houver uma dessas condições, ocor- 
rerá um acidente. O motivo pode ser 
uma asa muito baixa, excesso de velo- 
cidade ou simplesmente uma tentativa 
de aterrissagem fora da pista. O progra- 
ma prosseguirá na linha 6030, que cui- 
da dos acidentes. Ela traça várias linhas 
irradiando do centro do pára-brisa. A 
medida que essas rachaduras são dese- 
nhadas, o computador emite um som. 
Após o acidente, a linha 6040 provoca 
uma pausa antes que o piloto seja infor- 
mado das más notícias pela linha 6050, 
que fornece também os detalhes do 
acidente. 

Se o avião pousar corretamente, a li- 
nha 6010 verificará a posição da aterris- 
sagem. Se pousar fora da pista, a linha 
6060 informará sobre o fato. Se a velo- 
cidade era inferior a cinquenta metros 
por segundo, a linha 6070 dirá ao pilo- 
to que houve um pouso bem-sucedido. 
As linhas 6080 e 6090 informarão se o 
acidente foi pequeno, apenas com feri- 
dos leves, ou se foi um desastre mais 
grave; neste caso, O jeito é procurar a 
caixa-preta. 


1 EE 


Apague a linha 5505. Note que algu- 
mas linhas deste programa são modifi- 
cações de linhas já existentes. 





2 DEF USRI=AH4]:DEFUSR2=1H44 

5 GOTO 5000 

10 SCREEN 2,2:KEY OFF:COLOR 15, 
4,2 

15 A=USRI (0) 

50 ON KEY GOSUB 3100,3200 

60 KEY(1) STOP:KEY(2) STOP 

110 RETURN 

3000 A=STICK (0) 

3010 KEYT(1) ON:KET(2) ON 

3030 IF A=1 THEN PT=PT+3:GOTO 3 
070 

3040 
070 

3050 IF A=7 AND RL>-30 THEN BL= 
RL-3:GOTO 3070 


IF A=5 THEN PT=PT-3:GOTO 3 


3060 IF A=3 AND RL<30 THEN RL=R 
L+3 

3070 KEY(1) STOP:-KEY(2) STOP:RE 
TURN 

3100 T2=TC:IF TC>.2 THEN TC=TC- 
. 2: RETURN 

3200 T2=TC:IF TC<B.8 THEN TC=TC 
+. 2: RETURN 


3900 LINE(X,Y)-(X+50,Y+8),2,BF 
5020 SCREEN O:KEY OFF: INPUT"Vel 
ocidade do vento (1-50 m/s) “;X 
O 

5025 IF X0>50 OR X0<0 THEN 5020 
5030 INPUT"Direção do vento (0- 
359 graus) ";X1 

5035 IF X1>359 OR X1I<O THEN 503 


0 
5040 X0=X0/3 


5050 PRINT: PRINT "Velocidade do 
vento: ";INT(3*X0);"m/9s”: PRINT 
1". X1:5º qraus 


"Direção do vento 


5060 WY=XO*COS(XI*C) : WX=-XO*SIN 


(X1*C) 

5070 FOR I=1 TO 1000:NEXT:GOSUB 
10 

5400 A=USRZ2(0) 

5500 GOSUB 3000:GOSUB 1000 

5510 IF PZ<=0 THEN 6000 

5520 GOSUB 2000 

5530 GOTO 5500 | 

6000 IF ABS(RL)>RT OR PT>TP OR 
PT<O OR VV>80 THEN 6100 

6010 IF ABS(PX)>WR OR ABS(PY)>I 
000 THEN 6200 


6020 COLOR 15,4,4:SCREEN O 

6030 PRINT "Parabéns !*":PRINT * 
Aterriesaçem bem aucedida.”:GOT 
O 6500 

6100 LINE (0,0)-(RND(1)*128+64, 
BND (1) *96+49),15:LINE-(255,191) 
,-15:LINE (255,0)- (AND(1)*128+64 
| END (1) *96+49), 15: LINE-(0,191), 
15 

6110 FOR K=1 TO 1000:NEXT 

6120 COLOR 15,4,4:SCREEN O:PRIN 
T "Lamentamos informar, que o v 
do PJ26" 
6130 PRINT 
dente.” 


"sofreu um grave aci 











6140 PRINT “Não há sobrevivente 
B.":GOTO 6500 

6200 COLOR 15,4,4:SCREEN O 

6210 PRINT "Você pousou Fora da 
pista.” 

6220 IF VV<40 THEN PRINT “Como 
sua velocodade era baixa," :PRIN 
T "quase nada aconteceu."”:GOTO 
6500 

6230 IF VVc<BO THEN PRINT “Entre 
mortos e feridos,” :PRINT "salv 
aram-se fodos.":GOTO 6500 

6240 PRINT "Ninquém sobrevive a 
um pouso:“PRINT “nesta velocid 
ade.” 

6500 LOCATE 5,10:PRINT "VALORES 
RELATIVOS AO POUSO" 

6510 PRINT:PRINT "Velocidade do 
ar = “":INT(VV);"m/8s":PRINT "Di 
Btância = *; INT(SQA(PY*PY+PXX*PX 
));” m”:PRINT "Inclinação front 
al = ";PT 

6520 PRINT "Inclinação lateral 
= "-.AL:PRINT "Rotação do motor 
- *":INT(TC*1000); "r.p.m." 

6530 PRINT "Desvio do eixo da Pp 
jeta = "4 INT(PX);"m": PRINT "Dir 
eção = ";AD;"qraus” 

6540 PRINT: PRINT "Quer voar nov 
amente (S/N) 7” 

6550 AS=INKEYS:IF AS<S>"S5" AND A 
S<>"N” THEN 6550 

6560 IF AS=º“Nº THEN CLS: END 
6570 RUN 


O laço principal do programa fica nas 
linhas 5500 a 5530. A primeira coisa que 
ele faz é chamar uma sub-rotina na li- 
nha 3000 que permitirá o controle do 
avião. Essa sub-rotina usa o comando 
STICK, por meio do qual podemos pi- 
lotar com o teclado — ou com o joys- 
tick, se usarmos STICK (1). 

As linhas 3030 e 3040 controlam os 
movimentos de subida e descida, en- 
quanto as linhas 3050 e 3060 determi- 
nam os movimentos laterais. 

É necessário ainda que existam for- 
mas de acelerar e diminuir a rotação do 
motor. Isso é feito por intermédio das 
teclas de função do MSX. Nessa rotina 
serão utilizadas as duas primeiras teclas 
de função. Para tanto, foi incluída a li- 
nha 50 no início do programa; ela infor- 
ma ao computador o que fazer quando 
uma das teclas de função for pressiona- 
da. A função responsável por isto é ON 
KEY GOSUB, que difere da função ON 
“variável” GOSUB em diversos aspec- 
tos. O programa não será desviado ao 
encontrar a linha 50; ele apenas ficará 
sabendo para onde ir no momento opor- 
tuno, guardando os endereços na 
memória. 

Só quando o programa chegar à li- 
nha 3010 é que as teclas de função se- 
rão ativadas pelo comando KEY (N) 
ON, onde N é o número da tecla. A par- 
tir daí, se pressionarmos a tecla de fun- 


ção 1, o programa executará a sub- 
rotina da linha 3100, que desacelera o 
motor. Se a tecla de função pressiona- 
da for a 2, o motor será acelerado pela 
sub-rotina da linha 3200. 

Observe que o computador interrom- 
perá o que estiver fazendo para acele- 
rar ou desacelerar o motor, voltando em 
seguida para a tarefa anterior. Contu- 
do, se o programa estiver fazendo os cál- 
culos no momento em que pressionar- 
mos uma das teclas de função, coisas es- 
tranhas podem acontecer. E que a pri- 
meira parte dos cálculos terá sido feita 
com o valor antigo da rotação do mo- 
tor, e a segunda, com o valor novo. 

A solução não está em desligar as te- 
clas de função durante a execução dos 
cálculos, pois, neste caso, O programa 
só aceitaria mudanças na rotação do 
motor em determinados momentos. 

O problema, contudo, pode ser resol- 
vido. Para isso, é necessário que se di- 
gite o comando KEY (N) STOP nas li- 
nhas 60 e 3070, Depois de um comando 
desse tipo, o computador será capaz de 
detectar a tecla de função corresponden- 
te, mas o desvio não ocorrerá até que 
um comando do tipo KEY (N) ON seja 
encontrado. Dessa maneira, O progra- 
ma '“'sabe'' que uma tecla de função foi 
pressionada, e se lembrará de tal fato no 
momento adequado. 

Algumas linhas iniciais também fo- 
ram modificadas. A linha 2 define o en- 
dereço de duas rotinas em linguagem de 
máquina, que ficam na ROM. A primei- 
ra “desliga” temporariamente a tela, 
quando chamada pela linha 15, impe- 
dindo que o jogador veja o desenho que 
está sendo feito na tela. A segunda “'li- 
ga” a tela novamente, quando chama- 
da pela linha 5400, de forma que a ca- 
bine apareça instantaneamente. | 

A linha 5 desvia o programa para que 
o jogador informe a velocidade e a di- 
reção do vento, nas linhas que vão de 
5020 a 5070. Isso é feito antes que o de- 
senho da cabine de comando seja feito 
pela sub-rotina 10. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como as da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Um pouso fora da pista não signifi- 
ca necessariamente uma tragédia. Se a 
velocidade do avião for inferior a 40 
m/s, a linha 6210 dirá que os danos fo- 
ram pequenos. Se ela estiver entre 40 e 
80 m/s, a linha 6220 dará conta de que 
as perdas materiais foram pequenas, 


mas que há alguns feridos. Se a veloci- 
dade for maior que 80 m/s só nos res- 
tará procurar a caixa-preta: o desastre 
terá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
do pouso. Estudando bem esses núme- 
ros, você aprenderá a fazer aterrissagens 
cada vez melhores. 

Finalmente, as linhas 6540 a 6570 nos 
dão a opção de jogar novamente. 


q GaScaEs 


Antes de mais nada, apague a linha 
5505. O programa a seguir completa a 
simulação de vôo. Use as teclas Z, X, 
PeL para jogar. 


3000 K = PEEK ( - 16384): POKE 
- 16368,0 
3010 IF K = 193ANDTCO> .Z TH 


EN TC = TC-.2: GOTO 3070 

3020 IF K = 209 AND TC < B.BT 

HEN TC = TC + .2: GOTO 3070 
3030 IF K = 208 THEN PT = PT + 
3: GOTO 3070 

3040 IF K = 204 THEN PT = PT - 
3: GOTO 3070 


3050 IF K = 218 AND BL > - .0 
05 THEN BL = RL - .001: GOTO 30 
70 

3060 IF K = 216 AND RL < .005 

THEN RL = RL + .001: GOTO 3070 

3070 RETURN 

5020 HOME : TEXT INPUT “VELO 


CIDADE DO VENTO (1-50) M/S “:X0 


5025 IF XO > 50 OR XO < 1 THEN 
5020 
5030 INPUT "DIRECAO DO VENTO 


(0-359) GRAUS ";X1 

5035 IF X1 > 359 OR X1 < O THE 
N 5030 

5040 X0 = XO / 3 : 
5060 WY = XO0O * COS (XI * C) 
5070 WX = - XO0 * SIN (Xl * C) 
5500 GOSUB 3000: GOSUB 1000 


5510 IF PZ < = O THEN 6000 
5520 GOSUB 2000 

5530 GOTO 5500 

5570 GOTO 6550 

6000 IF ( ABS (BL) > RT) OR PT 


> TP OR PT < O OR AS > 80 THEN 
6100 


6010 IF ABS (PX) > WR OR ABS 
(PY) > 1000 THEN 6200 

6020 TEXT : HOME : PRINT "PARA 

BENS !": PRINT "ATERRISSAGEM BE 


GOTO 6500 

HPLOT 0,0 TO 
BND (1) * 9 
HPLOT 279,0 
RND (1) 


M SUCEDIDA”: 
6100 HCOLOR= 3: 
RND (1) * 140 + 71, 
6 + 49 TO 279,191: 
TO RND (1) * 140 + 71, 
* 96 + 49 TO 0,191 
6110 FOR K = 1 TO 2000: NEXT 
6120 TEXT : HOME PRINT “LAME 
NTAMOS INFORMAR QUE O VOO PJ25” 
: PRINT "SOFREU UM GRAVE ACIDEN 
TE.”: PRINT "NÃO HA SOBREVIVENT 
ES.": GOTO 6500 
6200 TEXT : HOME : PRINT “VOCÊ 
POUSOU FORA DA PISTA.” 












6210 IF AS < 40 THEN PRINT “C 
OMO SUA VELOCIDADE ERA BAIXA, ” 
PRINT "NADA ACONTECEU" GOTO 6 
500 
6220 IF AS < BO THEN PRINT “E 
NTRE MORTOS E FERIDOS": PRINT * 
SALVARAM-SE TODOS": GOTO 6500 
6230 PRINT "NINGUEM SOBREVIVE 
A UM POUSO FORCADO NESTA VELOCI 
DADE * 
6500 HTAB 5: VTAB 10: PRINT "UV 
ALORES RELATIVOS AO POUSO” 
6510 PRINT PRINT “VELOCIDADE 
DO AR ”; INT (AS);" M/S": PRIN 
T "DISTANCIA = "; INT ( SQR (PY 
a PT + PX* PX));" Mº: PRINT * 
INCLINACAO FRONTAL = “;PT 
6520 PRINT "INCLINACAO LATERAL 
= ";BAL: PRINT “ROTACAO DO MOTO 
R ="; INT (1000 * TC);”" RPM” 
6530 PRINT "DESVIO DO EIXO DA 
PISTA = ";PX;” Mº: PRINT "DIREC 
AO = ";AD;”" GRAUS" 
6540 PRINT : PRINT "QUER VOAR 
NOVAMENTE (S/N)?” 


6550 GET AS: IF AS = “8” THEN 
RUN 

6560 IF AS = “Nº THEN HOME 
END 


O laço principal do programa vai da 
linha 5500 à linha 5530, Inicialmente, ele 
chama a sub-rotina de controle do apa- 
relho pelo teclado, que começa na linha 
3000 e vai até a 3070. A linha 3000 veri- 
fica se alguma tecla foi apertada; as li- 
nhas 3010 e 3020 detectam as teclas Q 
e A, que diminuem e aceleram a rota- 
ção do motor; as linhas 3030 e 3040 des- 
cobrem as teclas P e L, que controlam 
a ascensão e a queda do aparelho; final- 
mente, as linhas 3050 e 3060 detectam 
as teclas Z e X, que viram o avião. 

As linhas 5020 e 5070 permitem va- 
riar o nível de dificuldade da aterrissa- 
gem por intermédio da escolha da for- 
ça e da inclinação do vento. A opção 
mais fácil é uma velocidade de 1 m/s nu- 
ma direção que faz um ângulo de zero 
grau com o aparelho. A partir dos va- 
lores relacionados, a linha 5060 calcula 
o componente frontal da velocidade do 
vento, e a linha 5070, seu componente 
lateral. WX e WY são usados para alte- 
rar a posição do aparelho. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
assim como os da velocidade do vento. 
Se todos eles estiverem dentro dos limi- 
tes aceitáveis, a linha 6020 informará ao 
piloto que houve uma aterrissagem bem- 
sucedida. 

Como no caso anterior, nem tudo es- 
tará perdido se aterrissarmos fora da 
pista. Caso a velocidade de pouso seja 
inferior a 40 m/s, a linha 6210 dirá que 
os danos foram pequenos. Se ela estiver 


entre 40 e 80 m/s, a linha 6220 dará con- 
ta de pequenos danos e alguns feridos. 
Se a velocidade for maior que 80 m/s, 
só nos restará procurar a caixa-preta en- 
tre os escombros: neste caso, o desastre 
terá sido total. 

As linhas 6500 a 6530 mostram os va- 
lores de todas as variáveis no momento 
da aterrissagem. Estudando bem esses 
números, você aprenderá a pousar ca- 
da vez melhor. 

As linhas 6540 a 6570, finalmente, 
nos dão a opção de jogar novamente. 

Na última seção vimos que, se o Jo- 
go se estender por muito tempo, a tela 
gráfica pode ser corrompida por restos 
de cordões que se acumulam na memó- 
ria. Se você tiver esse tipo de problema, 
pode corrigi-lo, modificando a linha 
2000 para: 
2000 X = 


FRE (0): HCOLOR= O 


O comando FRE(0) limpa a área de 
cordões, evitando que ela invada a tela 
gráfica. No entanto, ele torna o progra- 
ma mais lento. 

A velocidade do programa é compro- 
metida principalmente pela execução da 
sub-rotina que escreve na tela gráfica. 
Como os valores que devem ser constan- 
temente atualizados ficam na porção in- 
ferior da tela, podemos acelerar consi- 
deravelmente o programa se liberarmos 
as quatro linhas inferiores para texto 
(veja o artigo Os Comandos PEEK e 
POKE na página 261) e usarmos HTAB, 
VTAB e PRINT para escrever ali esses 
valores, 


Aqui estão as modificações para que 


o programa funcione no TK-2000. 
10 FOR I=OTO6 


20 READ A: POKE 768 + I,A 
30 NEXT 
40 DATA 32,67,240,141,32,3,96 


3000 POKE 800,0: CALL 768:K = 
PEEK (800) 


As quatro primeiras linhas colocam 
uma pequena rotina em código de má- 
quina na memória do TK-2000. Quan- 
do chamada pela linha 3000, essa roti- 
na permite que se faça leitura do tecla- 
do, com auto-repetição. 

A baixa velocidade de execução do 
programa se deve aqui às características 
específicas do TK-2000. 


Antes de executar O programa, apa- 
gue a linha 5505. 


3000 IF PEEK(337)=255 THEN RETU 
RN 





3010 IF PEEK(J41)=2Z5] 


THEN TC=TC-.2 


3020 IF PEEK(344)=254 


8 TH 


3030 IF PEER(341)=247/ 


T+1 


3040 IF PEEK(342)=223 


T-1 


EN TC=TC+.2 


AND TC<B. 


THEN PT=P 


THEN PT=P 


3050 IF PEEK(343)=223 AND BL>-3 
O THEN RL=RL-1 
3060 IF PEEK(344)=247 AND BL<3J0 
TREN RL=RAL+1 


30/70 
39020 
NTO 

5025 
5030 
359) 
5035 
5040 
5050 


VENTO= " 


AÚ= 

5060 
50/70 
5600 
5510 
5520 
5530 
6000 
PET<O 
6010 


RETURN 


CLS: INPUT VELOCIDADE DO VE 


(1-50) M/S" ;K0 


IF X0>50 OR XD<] 


INPUT"DIRECAO 
GRAUS" ;X1 


IF X1>359 OR X1<0 


X0=X0/43 


THEN 5020 
DO VENTO (0Q- 


THEN 503 


PRINT: PRINT VELOCIDADE DO 


"4X1L; "GRAUS" 


13*H0;0M/S' 


"2: PRINT'DIREC 


WY=X0*COS(X1*C) 
Wa=-XO*SIN(XI*C) 


GOSUB 
IF PZ<=0 THEN 
GOSUB 2000 
GOTO 5500 

IF ABS(RL)>2RT 
OR UV>80 THEN 
IF ABS (PX) >2WR 


JUV DO: GOSUB 


1000 
6000 


OR PT>TP OR 
8100 
OR ABS (PY)>1 








Pere Fa ra So Pk Em 


e a 


o SI Pi 





000 THEN 6200 

6020 CLS: PRINT” PARABENS! AT 
ERRISSAGEM BEM SUCEDIDA." :GOT 
O 6500 


mm Nada 
B AJ Lj 
2." f 


LINE (0,0)- (RND(128)+63,BND 
(96) +48) ,PSET:LINE-(255,191),PS 
ET:LINE(255,0)- (RND(128)+63, AND 
(96) +48) , PSET:LINE -(0,191),PSE 
6110 FOR K=1l TO 
6120 CLS: PRINT” 
RMAR QUE O 
GRAVE ACIDENTE 
6140 PRINT” NÃO 
S":.GOTO 6500 
6200 CLS: PRINT” 
à DA PISTA" 
6210 IF VV<40 THEN PRINT” 
SUA VELOCIDADE ERA BAIXA, 
E NADA ACONTECEU" :GOTO 6500 
6220 IF VV<8B0 THEN PRINT” ENTRE 
MORTOS E FERIDOS, SALV 
ARAM-SE TODOS” :GOTO 6500 

6230 PRINT” NINGUEM SOBREVIVE A 
UM POUSO NESTA VELOCIDADE!” 
6500 PRINT: PRINT ” VALORES RELA 
TIVOS AO POUSO” 

6510 PRINT: PRINT" VELOCIDADE DO 
AR =": INT(VV):; M/5' : PRINT DIS 
TANCIA ="; INTISQRIPY*PY+PX*HPX)) 
“PRINT” INCLINACAO FRONTAL =";P 
T 
É 


2UQU: NEXT 
LAMENTAMOS INFO 
PJZ6 SOFREU UM 


VOO 
HA SOBREVIVENTE 
VOCÊ POUSOU FOR 


COMO 
QUAS 


520 PRINT” INCLINACAO LATERAL 





=" | AL: PRINT” 
CI INT(L0*TC)/10;" 
6530 PRINT” 


ROTACAÃO DO MOTOR = 
X 1000” 
DESVIO DO EIXO DA P 
ISTA ="; INT(ABS(PX));"M”: PRINT” 
DIRECAO ="; AD; “GRAUS” 


6540 PRINT:PRINT” 
AMENTE (S/N) 7" 
60550 AS=INKEYS: IF AS<>275" 
S<>"N” THEN 6550 

6560 IF AS="N" THEN CLS:END 
65/70 RUN 


QUER VOAR NOV 


AND A 


O laço principal vai de 5500 a 5530. 
Ele chama a sub-rotina de controle do 
aparelho pelo teclado, que vai de 3000 
a 3070, A linha 3000 verifica se alguma 
tecla foi apertada; 3010 e 3020 detectam 
as teclas F e S, que diminuem € acele- 
ram a rotação do motor; 3030 e 3040 
descobrem as setas “para cima” e “'pa- 
ra baixo”, que controlam a ascensão e 
a queda do aparelho; 3050 e 3060 detec- 
tam as setas “direita” e “esquerda”, 
que viram o avião. 

As linhas 5020 e 5070 permitem va- 
riar o nível de dificuldade do pouso, es- 
colhendo a força e a inclinação do ven- 
to. A melhor opção é uma velocidade de 
| m/s numa direção que faz um ângulo 
de zero grau com o aparelho. A linha 
5060 calcula o componente frontal da 


velocidade do vento, e a 5070, seu com- 
ponente lateral. WX e WY servem para 
alterar a posição do aparelho. 

Se a linha 5510 perceber que o avião 
atingiu o solo, o programa prosseguirá 
na linha 6000. Ali serão verificados os 
valores das inclinações frontal e lateral, 
bem como da velocidade do vento. Se 
todos eles estiverem dentro dos limites 
aceitáveis, a linha 6020 informará ao pi- 
loto que houve uma aterrissagem bem- 
sucedida. 

Uma aterrissagem fora da pista não 
implica, necessariamente, a destruição 
do aparelho. Assim, se a velocidade de 
pouso for inferior a 40 m/s, a linha 6210 
dirá que os danos foram pequenos. Se 
ela estiver entre 40 e 80 m/s, a linha 
6220 informará que alguma coisa foi 
destruída e que há alguns feridos. Se a 
velocidade for maior que 80 m/s, só nos 
restará procurar a caixa-preta entre os 
destroços do avião: o desastre terá sido 
total. 

As linhas 6500 a 6530 mostram os va- 
lores das variáveis no momento do pou- 
so. Estudando bem esses números, vo- 
cê aprenderá a pousar cada vez melhor. 

Finalmente, as linhas 6550 a 6570 
oferecem a opção de jogar de novo. 





















NA TELA 





Usado para regular as atividades do 
micro, o relógio interno funciona a uma 
velocidade constante. Em alguns casos, 
seu conteúdo só pode ser lido e manipula- 
do por instruções em código de máqui- 
na. Em outros, podemos cronometrar 
eventos através de instruções do BASIC, 
que variam segundo o modelo da má- 
quina: PAUSE no Spectrum, TIME no 
MSX, TIMER no TRS-Color etc. 

Tais instruções fazem com que o mi- 
cro conte em unidades entre cem e cin- 
quenta avos de segundo, conforme a ve- 
locidade do relógio. Muitas operações 
usam o relógio de maneira similar: por 
exemplo, se o micro for programado pa- 
ra tocar música, temos que especificar 
a duração de cada nota. 





CONTANDO O TEMPO 


De fato, ainda que certas funções não 
tenham sua duração definida dessa ma- 
neira, o computador é um contador de 
tempo por excelência, executando os 
programas com o olho no relógio. Po- 








UM RELÓGIO 


demos, assim, fazer com que o compu- 
tador conte o tempo para nós: basta es- 
crever um programa em BASIC conten- 
do um laço que imprima a hora, provo- 
que uma pausa, imprima a nova hora, 
e assim sucessivamente. Se fizermos 1s- 
so, logo veremos que a pausa deve ser 
um pouco menor que um segundo, pois 
o micro leva algum tempo para fazer as 
adições e impressões necessárias. 

Um relógio desse tipo tem duas gran- 
des desvantagens. A primeira é que ele 
só conta o tempo enquanto o computa- 
dor estiver ligado. Mais grave do que es- 
ta, a segunda limitação consiste no fato 
de que, sempre que quisermos usar o mi- 
cro para alguma outra coisa, teremos 
que desligar o relógio, pois não é possi- 
vel executar dois programas BASIC ao 
mesmo tempo. O '“desligamento” do re- 
lógio caracteriza, portanto, uma inter- 
rupção da UCP. Esse tipo de manipu- 
lação em geral exige um conhecimento 
maior da arquitetura do microcompu- 
tador, bem como o uso de instruções de 
acesso a recursos que só existem em lin- 
guagem de máquina. 





Se você não tiver nada para fazer numa 
tarde de chuva, rompa o tédio 
executando a rotina apresentada neste 
artigo e veja surgir um 

relógio digital na tela do computador. 





UM RELÓGIO INTERMITENTE 





Para que um programa funcione si- 
multaneamente com a execução de um 
BASIC, é preciso que ele contenha ro- 
tinas controladas por interrupção. 

Os usuários do Spectrum já tiveram 
um exemplo desse tipo de rotina, De fa- 
to, o método utilizado é semelhante em 
todos os micros. 

Quando está ligado, o micro é cons- 
tantemente interrompido por uma fra- 
ção de segundo, a intervalos regulares. 
Isso acontece mesmo que um programa 
em BASIC esteja sendo executado, pois 
o computador precisa “saber” se algu- 
ma tecla foi pressionada. Assim, o pro- 
grama BASIC é interrompido enquan- 
to o teclado é verificado, recomeçando 
novamente até a interrupção seguinte. 

Durante a verificação do teclado, é 
possível introduzir uma rotina em códi- 
go, de modo a executá-la nas “brechas” 
abertas pela interrupção do BASIC. O 
resultado é que os programas parecerão 
funcionar simultaneamente. 
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Já que o processo de interrupção é 
controlado pelo relógio do micro, con- 
vém acertar o passo do relógio simples- 
mente contando o número de interrup- 
ções. A frequência de interrupções va- 
ria de micro para micro, mas o princi- 
pio é o mesmo. 

O programa que se segue simula um 
relógio no Spectrum e no TRS-Color, 
com horas, minutos e segundos conta- 
dos a partir do momento em que come- 
ça a ser executado. Podemos acertá-lo 
de modo a fazê-lo funcionar, seja como 
relógio, seja como cronômetro. Esses 
valores são mostrados continuamente 
no canto superior direito da tela. O re- 
lógio permanecerá funcionando na te- 
la, mesmo que outro programa esteja 
sendo executado ou digitado. 

Como você não tardará a perceber, 
ele não prima muito pela precisão. Es- 
sa falha, porém, não se deve à rotina 
que acerta a hora, pois os atrasos pro- 
vocados por ela são insignificantes (da 
ordem de milionésimos de segundo). As- 
sim, O erro vem mais do relógio interno 
do que de qualquer outra fonte. Por ou- 
tro lado, funções como SAVE, LOAD, 
SOUND e PLAY param o relógio en- 
quanto estiverem sendo executadas. A 
hora é exibida, num mostrador digital, 
no canto superior direito do vídeo, apa- 
gando qualquer coisa impressa ali ante- 
riormente. Se isso causar problema, 
reorganize sua tela a fim de evitar a pri- 
meira linha. Por exemplo, você poderia 
colocar a hora digital no canto superior 
(esquerdo ou direito), desde que o mo- 
delo do seu micro o permitisse. Neste ca- 
so, O programa em linguagem de máqui- 
na teria que ser alterado. 


O programa a seguir funciona tanto 
na versão de 16K, como na de 48K do 
Spectrum. Antes de começar a rodá-lo, 
tome alguns cuidados especiais, pois 
cartuchos e expansões conectados ao mi- 
cro podem dificultar sua execução. É o 
caso, por exemplo, de interfaces para 
impressora, joysticks, etc. 

10 CLEAR 32319: LET total=0 
20 FOR n=32320 TO 32554: READ 
a: POKE n,a: LET total=total+ 
a: NEXT n 





O COMPUTADOR COMO RELÓGIO 


m 
o CONTANDO O TEMPO 
E COMO FAZER INTERRUPÇÕES 
A 
E 





E O MOSTRADOR DO RELÓGIO 


30 IF total<>24216 THEN 

PRINT "Erro nos dados”: 

40 RAND USR 32320 

50 DATA 33,0,0,34,120,92,34, 

121,92,62,40,2937,71,237,94, 

201,0,64,0,0 

60 DATA 62,62,237,71,237,86, 

201,0,229,213,197,245,58,91, 

126,60,50,91,126,254 

70 DATA 50,32,50,175,50,91, 

126,58,120,92,60,50,120,92, 

254,60,32,35,175,50 

80 DATA 120,92,58,121,92,60, 

50,121,92,254,60,32,20,175,50 

,121,92,58,122,92 

90 DATA 60,50,122,92,254,13, 

32,5,62,1,50,122,92,58,122,92 

Esc E. 0 + JD Th Desa 
100 DATA 23,64,205,234,126,58, 
121,92,38,0,111,17,26,64,205; 
234,126,58,120,92 
110 DATA 38,0,111,17,29,64,205 
,234,126,17,208,61,33,29,64, 
205,34,127,17,208 
120 DATA 61,33,26,64,205,34, 
127,62,120,33,24,88,119,17,25, 
88,1,7,0,237 
130 DATA 176,205,191,2,241,193 
,209,225,251,201,237,83,80,126 
-1,246,255,205,251,126 
140 DATA 1,255,255,205,251,126 
,201,175,9,60,56,252,237,66,61 
,198,48,229,205,21 
150 DATA 127,33,80,126,52,42, 
80,126,205,34,127,225,201,237, 
75,54,92,38,0,111 
160 DATA 41,41,41,9,235,201,6, 
8,26,119,36,19,16,250,201 

Essa rotina é formada por números 
distribuídos em linhas DATA; eles são 
colocados na memória pelo BASIC, 
usando POKE. Tal quantidade de nu- 
meros propicia erros de digitação; as- 
sim, a linha 20 verifica a soma dos nú- 
meros: se o resultado não corresponder 
ao esperado, a linha 30 interromperá a 
execução do programa com uma men- 
sagem de erro, para que você verifique 
as linhas DATA, Esse método é chama- 
do de ''checagem por soma” e é reco- 
mendável quando há muitos números. 
A linha 10 protege o topo da memó- 

ria para colocar ali a rotina em código, 
que é executada pela linha 40 . O reló- 
gio começa com 00:00:00, mas podemos 
acertá-lo com: 


STOP 


POKE 23672, (segundos) 
POKE 23673, (minutos) 
POKE 23674, (horas) 


a UMA ROTINA EM CÓDIGO 


3 LIGUE O RELÓGIO 
ii ACERTE OS PONTEIROS 
ça 3 SAVE, LOAD, 

SOUND, PLAY 


Os números nos comandos POKE 
devem estar no intervalo permitido — 
de O a 60 para minutos e segundos, e de 
la 12 para horas. Se quisermos “zerar” 
o relógio, é mais fácil usar: 


RAND USR 32320 


que executa a rotina novamente. Você 
vai precisar desse comando, se O progra- 
ma em BASIC for apagado por NEW. 


Essa rotina não funciona com drives 
de disquete ligados ao micro. 


10 CLEAR 200,32599 

20 FOR J=32600 TO 32679 

30 READ N 

40 POKE J,N 

50 NEXT 

100 DATA 204,0,0,253,127,252,25 
3,127,254,48,140,4,191,1,13,57 
110 DATA 206,127,164,142,128,0, 
166,130,76,161,192,38,9,111,132 
120 DATA 140,127,252,38,242,134 
,1,167,132,206,4,32,142,127,255 
130 DATA 79,230,130,192,10,45,3 
/76,32,249,195,47,58,237,195,17 
140 DATA 131,4,25,47,6,134,58,1 
67,194,32,229,126,137,76,50,60, 
60,13 


A rotina em código está nas linhas 
DATA, sendo colocada na memória pe- 
lo POKE da linha 40. Qualquer erro nas 
linhas DATA será fatal; portanto, gra- 
ve o programa antes de executá-lo. Ve- 
rifique os números cuidadosamente. Um 
erro muito comum é esquecer alguma 
vírgula, substituir uma virgula por um 
ponto ou vice-versa. Tudo isto prejudi- 
ca a sequência de leitura do comando 
READ, Execute o programa para car- 
regar a rotina em código. Para ligar o 
relógio, use: 

EXEC 32600 

Isso inicia a atividade do relógio com 
00:00:00. Para acertá-lo, digite em mo- 
do direto, pelo teclado: 

POKE 32764, 


POKE 32765, 
POKE 32766, 


(horas) 
(minutos) 
(segundos) 


Não empregue valores impróprios 
para horas, minutos e segundos: o com- 
putador não tem meios de checá-los. 











SPRITES PARA O 


TRS-80 (2) 








Aprenda a empregar os caracteres 
gráficos pré-programados do 

TRS-80 em desenhos mais complexos 
e capacite-se a trabalhar com 

os úteis “sprites programáveis”. 


Se examinarmos com cuidado os ca- 
racteres gráficos do TRS-80, que ocu- 
pam a faixa de códigos que vai de 129 
a 193 (veja tabela no capítulo anterior 
desta lição), podemos notar facilmente 
que eles são formados por todas as com- 
binações possíveis de seis pixeis retan- 
gulares, acesos ou apagados. Portanto, 
a matriz de um caractere tem esta 
forma: 


Você verá agora que não é necessá- 
rio memorizar a tabela de caracteres grá- 
ficos do TRS-80, nem consultá-la a to- 
do momento ao se projetar um desenho 
mais complexo, formado por vários des- 
ses caracteres. A razão é que existe uma 
relação matemática bem definida entre 
a forma do gráfico e o seu código nu- 
mérico. Ou seja, os códigos não foram 
atribuídos ao acaso, como para compu- 
tadores de outras linhas. 


BITS QUE SE ACENDEM 


Todo caractere gráfico é formado pe- 
la combinação de seis pixels — dois na 
horizontal e três na vertical —, que po- 
dem estar individualmente acesos ou 
apagados. Cada um deles corresponde 
exatamente ao pontinho de luz que po- 
de ser ligado ou desligado com os co- 
mandos gráficos SET e RESET. 

Por quê? Sabemos que a tela de bai- 
xa resolução do TRS-80 tem 128 pon- 
tos na horizontal (ou seja, 64 caracte- 
res vezes 2 pixels), e 48 na vertical (isto 
é, 16 linhas vezes 3 pixels). 

Cada pixel corresponde a um bit na 


memória de vídeo do micro. Como ca- 
da byte da memória tem oito bits, e ca- 
da caractere seis bits, sobram dois bits 
não usados para representar pixels. Um 
byte da memória de vídeo no TRS-80 
poderia ser representado assim: 


DE 
TU BO 3 2 4 


Os bits numerados de O a 5 corres- 
pondem aos seis pixels habituais do ca- 
ractere gráfico. 

O bit 6 não é usado para representa- 
ção de caracteres gráficos, e o bit 7 é 
sempre igualado a 1, para todos os ca- 
racteres gráficos. 

Por exemplo, se quisermos obter o 
código gráfico 134, precisaremos acen- 
der sucessivamente 1 e 2: 

















O código 134 é obtido fazendo-se a 
conversão de binário para decimal: 


bit valor multiplicador resultado 
O O x | = O 
qe x 2 Es 2 
a Do 4 = 4 
3 0 X 8 = O 
420 w “MH = O 
: 0% 3 x O 
6 O x 64 = Ô 
MR dE EB = 128 
Soma 134 


Dessa maneira, é relativamente fácil 
calcular o valor do código de qualquer 
caractere. Para isso, basta verificar as 
posições ocupadas pelos diversos pixels 
“acesos”” na matriz do caractere, adicio- 
nar em seguida os valores inscritos na 
posição, e somar 128 ao resultado (daí 
a razão de o número 128 ser considera- 
do também como um código gráfico): 








8; CORRESPONDÊNCIA ENTRE 

CÓDIGO E CARACTERE GRÁFICO 
E COMO CALCULAR O CÓDIGO 
mai BITS QUE SE ACENDEM 
= APLICAÇÕES 





APLICAÇÕES 





Este fato tem diversas implicações: é 
muito fácil, por exemplo, inverter-se Os 
gráficos escritos na tela (para isso, bas- 
ta transformar os bits da memória grá- 
fica, de modo que os que são 1 passem 
para 0, e vice-versa). É possível obter 
outras transformações matemáticas com 
os códigos gráficos, com resultados 
curiosos. 

Mas a aplicação que mais nos inte- 
ressa no momento relaciona-se com a 
definição de figuras complexas. Neste 
caso, O primeiro passo consiste em ar- 
mazenar os códigos numéricos dos ca- 
racteres gráficos que compõem tais fi- 
guras, em uma linha DATA, que é lida 
e armazenada (concatenada) em uma 
variável alfanumérica. Para economizar 
espaço, somente o valor diminuído de 
128 é armazenado. 

Tomemos como exemplo o programa 
a seguir; ele define uma variável A$ que 
contém a imagem de um aeroplano sim- 
ples, formado pelos caracteres 141, 170, 
174, 170 e 140. 


10 CLS:AS="" 

20 FOR I=1l TO 5:READ N 
30 AS=AS+CHRS (12B+N) 
40 NEXT I 

50 DATA 13,42,46,42,12 


O aviãozinho ''voa” do seguinte mo- 
do: impresso inicialmente em uma po- 
sição da tela (com PRINT GQ), ele é su- 
cessivamente apagado com cinco carac- 
teres em branco e exibido na posição se- 
guinte, e assim por diante. Acrescente 
estas linhas e rode o programa: 


60 FOR 1=256 TO 313 
70 PRINT € I,AS: 

B0 FOR J=1 TO 40: NEXT 
90 PRINT € I,” “4 
100 NEXT 1 


Portanto, A$ é, de certa forma, uma 
espécie de sprite. 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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PROGRAMAÇÃO BASIC 


Simule a trajetória de uma bola no computador, utilizando 
modelos matemáticos em seus programas. 


PROGRAMAÇÃO DE JOGOS 


Prepare-se para faiscar ouro no duro chão de Serra Pelada. E fique rico do dia para a noite. 


PROGRAMAÇÃO BASIC 


Como utilizar caracteres gráficos dentro de um programa. Uma tabela de referência. 


CÓDIGO DE MÁQUINA 


Faça algumas alterações no programa Assembler para o MSX e adapte-o para os micros da linha TRS-80. 


PROGRAMAÇÃO BASIC 
Como armazenar figuras mais complexas: 
em uma única variável. 





